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CCIRTN - 
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RDF IN - 


21- 




CLTIMR - 


22- 




ORINGP - 


23- 




CETCHR -■ 


24- 




EQFCHR - 


25- 




CCORTiM - 


27- 




CLXICP - 


28- 




CLOCPY "• 


29- 




CLXMCC - 


31- 




CLXBRK - 


32- 




CLXDRP - 


33- 




CLSTRT - 


34- 




CLABRT - 


35- 




CKABTQ - 


36- 




M(3VQ 


37- 




RTNQ 


38- 




L.INON - 


39- 




3ETDTH - 


40- 




SETBRK - 



(CL MACR(3 V05. 04 Monday 21 -Dec -87 OS: 30 



I/O reque&t 



r defini ti ODB 
as 

- Entry point for procpssing b new 

- . SPFUN processing 

- Return CL device status 

- Store 1 word into user's buffer 

- Get 1 word from user-'s buffer 

- Initiate end-of~fiie processing 

- Reset a CL unit 

- Input character processing 

- Move chars from silo buffer to data buffer 

- Input control character processing routines 

- Move character to user's data buffer 

- Completed a read request 

- Routine called from clock interrupt routine 

- Move chars from data buffer to output ring buffer 

- Get next output char from user's data buffer 
~ Get next end-of-file output character 

- Output control character processing routines 

- Got char for output to cross connected CL line 

- Copy characters from TT input buf to CL output buf 

- Process cross connect modem control character 

- Break a CL-"fT cross connection and drop D'lR 

- Break a CL-TT cross connection 

- Start transmissions to a line 

- Handler abort routine 

- Check for aborted queue elements 

- Move queue element to internal queue 

- Return completed queue elements to the system 

- Turn on a communications line 

- Set Data Terminal Ready status 

- Control break transmission 
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Cooroiunication Line (CD Handler for TSX-Plus 



; Virtual seqment ID word 



30 
31 

33 
34 

35 

wJW 

37 
3S 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



TSCLO is a system virtual overlay which provides support for the 

Communication Line (CI.) handler for TSX-Plus, 

This handler supports 1/0 to communication lines declared by 

use of the lOLINE macro when the system is generated. 

The device names are CLO, CLl, ..., CL7, CIO, Cll, ..., C17. 

Internal queueing is M^iBii to allow concurrent input/output operations 

to takf? place on all of the devices at the same time. 

XON/XOFF support is provided. 

Copyright < c .) 1984 .. 1 9B fi . 
SS<H Computer Systems, Inr. 
Nashville, Tennessee U'.>A 
All rights vsv^BTyi^iS 



Olobal definitions 

. OLOBL CLI0(3, CLABRT, CLTIMR, CLIWCP, CLXICP, CLXBRK 

. GLOBL SETDTR, CLREST 

Global references 

. CLOBL GETRTQ, CQ*L07, CQ*RTN, KPAR5, C(3*PA5, Q. DEVX 

. GLOBL CQ$RO, MRKT! ID, Cft^LNK, VCXTRM, VCXCTL, CL*ORG 

. GLOBL CLTOTL, LSW3, Q. JOB, LXCL, CL*XLN, CIDEVX 

. GLOBL PSW, INTPRI, PTWRD, *XCHAR, TRNSTR 

. GLOBL Q, WCNT, Q. OLKN, Q. LINK, lOFIN, CM*MCC, CM^FFI 

. GLOBL $CTRLS, LSW3, SETSPD, CDSXON, CM*WRT 

. GLOBL TTINCP, LINIR, FORCEX, LNMAP 

. GLOBL CL*EPN, CL*EPS, CL*EPP, CMfEFP, CLEOFS 

. GLOBL CDSTRT, LCDTYP, PTBYT, CLVERS, CLSFWB 

. GLOBL LHIR3S, *HISTP, CLSFAB, NEDCDO, NEDCLO 

. GLOBL LHIRBB, LHIRBG, LHIRBP, LHIRBA 

. GLOBL Q. UNIT, G. FUNC, Q. CSW, CS*ERR, C. CSW 

. GLOBL CO*FF, CO*TAB, CO«LFD, CO*LFI, CO*FFO 

. GLOBL CO*BNO, C0*I3NI, LSWIO, CO*SBT 

. GLOBL CM$TBS, CM$IRG, CMfON, CM*EOF 

. GLOBL CLiUCPT, CL'^STA, SILFET, CL*ORA, CLSFIC, CLSFDC 

, GLOBL FRKGET, F0RK(5, FQ*PRI, FQ*RTN, FP*IOA 

. GLOBL CL$COL, CL*ROH, CL*W(3H, CLABF 

. GLOBL CLCQE.. CLLGE, CM^iORP, CL$ORS, CL*ORP 

. GLOBL CL*ORS, CLUDRE, CL*ORB, GTBYT, CLSFMS 

. GLOBL CS$EOF, CO*DTR, Cli*DTR, CLSFRL 

. GLOBL CM^FFS, CL$LIN, CL*LEN, CO«LC, CL$WID 

. GLOBL CO$CTL, CL*SKP, CO*CR, KPAR6, Q. PAR, Q. BUFF 

, GLOBL CLSFCH, CLSFBC, CLSFRB, CLSFHS, CLSFDL 

, GLOBL CLSFSO, CLSFCO, CLSFSL, CLSFSS, CLSFSW 

. GLOBL MS*DTR, CDSDSS, CDGDSS, OVRHC, LCDTYP 

. GLOBL CM*CRL, CDGDSS, MS*CAR, MS*RNG 

. GLOBL CM$BRK, CDSBRK, MS*BRK, CLSFSP 



< 
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50 . GLOBL CL*L:IX, LCLUNI 

59 . GLOBL GETDSS, SETDSS> XL*XFX, XL*XFR, XL*CTS> XL*CD, XL«RI 
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7 
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O 
/ 

10 

11 

1,2 
IG 
14 
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16 
17 
18 
19 
20 
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Macro definitions 

Disable interrupts 

. MACRO DISABL 
BIS #340, €#PSW 
. ENDM DISABL 

Enable interrupts 

. MACRO ENABL 

BK:: INTPRI,S#PSy 

. ENDM ENABL 



; Disable interrupts 



; Enable interrupts 



Call another system virtual overlay region 

. MACRO OCALL P N'T ADD 

CALL OVRHC 

. WORD ENTADD 

. ENDM OCALL 



1 



TSCLO --- Conmuni ca i 1 0)1 Line 
Parameter definitions 



1 

3 
.1. 

5 
6 

7 

a 

9 
10 

1.1 
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. SBTTL Parameter def iifitions 
Asi. ii characters 



000015 
000012 
000014 
000023 
000021 
00003;? 
000040 



CR 

U- 

FF 

CTRLS 

CTRLQ 

CTRLZ 

SPACE 



15 
12 
14 
23 
21 
32 
40 



; Carriage return 

;Line feed 

i Form feed 

;Ctrl-S 

; Ctrl-Q 

i Ctrl-2 

; Space 
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3 






4 






5 


000002 


177777 


6 


000004 


000000 


7 


000006 


000000 



. SBTTL Data areas 

• «-«> «.™.— . „_. — „ — «.-»—., 

^ General data areas 

RTNCNT: . WORD -1 
CQH: . WORD 
ABTQFL: . WORD 



; Counts if someone in RTNQ routine 

J List head for Q elements waiting to be freed 

i non-zero ==> RTNQ fork request pending 



( 
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19 
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27 
28 
29 
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31 

33 
34 
35 
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37 
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39 
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41 
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i 



000010 
000012 
000014 



000016 
000024 
000030 
000032 
000040 
000042 
000046 
000054 
000056 



000060 
000062 
000G64 
000066 



000070 
000074 
000100 
000106 
000110 
000114 
000116 
000122 



000130 
000134 
000136 
000142 



010346 
010446 
010546 



013704 
001406 
016437 
001002 
005037 

005704 
00 1 004 



012605 
012604 
012603 
000207 



116405 
042705 
126437 

ooioo;:; 

062705 
006305 
016501 
00 1 002 
000137 



1 J 6403 
00 1 037 
006364 

103415 



SBTTL CLENTR 



Entry point for processing a new I/O request 



CLlOti is called by thy nystem I/O initiation routine to start a new 
I / T e q u e s t . 

We process some requests immediately* but for most <5uch as read and 
ujrite) we move the request from the handler queue onto an internal 

q u e u £' . 



Input B : 
CLCQE =• Current queue request. 
CLLGE = Last queue request. 



CL.TDQ: MOV 
MOV 
MOV 



R3, -(SP) 
R4, -(SP) 
R5, -<SP) 



0000000 

OOOOOOC OOOOOOG 
OOOOOOG 



Remove current queue element from list pointed to by handler header 

;;•«■«• Disable interrupts «■« 
; i Get pointer to queue element 
■> i Br if there is no queue element to process 
<3. LINK-Q. BLKN<R4), CLCQEi i i Remove queue element from list 

i i Br if more elements pending 
i ; Say there are no pending queue elements 
««• Enable interrupts *« 
Is there a queue element to process? 
Br if yes 

There are no remaining queue elements for the handler to process. 

Return to the system. 



CLQDK: 


DISABL 






MOV 


CLCQE> R4 




BEQ 


1* 




MOV 


<3. LINK-Q 




BNE 


1* 




CLR 


CLLQE 


If.: 


ENABL 






TST 


R4 




BNE 


3* 



MOV 


<SP)+, R5 


MOV 


<SP)+, R4 


MOV 


(SP)+, R3 


RETURN 





There is a queue request to be processed. 
R4 = Points to <3. BLKN cpII in queue element. 
Determine if I/O is beinq done to a valid CL 



uni t 



OOOOOOC 

177770 

OOOOOOC OOOOOOG 

000010 

OOOOOOG 

000322 •' 



3*: 



4*: 



MOVB 

BIC 

CMPB 

BNE 

ADD 

ASL 

MOV 

BNE 

JMP 



Q. UNIT~Q. BLKN(R4). R5i Get device unit number 
#--C7, R5 ; Clear all but unit # field 

Q. DEVX-Q. BLKN<R4), CIDEVX ils the a CI unit? 

i Br if not 

;Bias CI unit numbers by 8 
i Convert to word index 
j Is this CL unit associated with 
; Br if yes — This is a valid CL 
; Return immediate hard error code 



R5 



4« 

#8 

R5 

CL*HX<R5)>Ri 

2* 

CLERR 



a line? 
unit 



Get the function code and see 
R5 =- CL unit inde:< number. 



if this is a .READ, .WRITE, or . SPFUN. 



OOOOOOC 
OOOOOOC 



2*: MOVB Q. FUNC-Q. BLKN<R4), R3 ; Get the function code 

BNE CLSPFN > Br if this is a .SPFUN operation 

ASL Q. WCNT~Q. BLKN(R4) ; Convert word count to # bytes 

BCS CLWRIT » Br if this is a write operation 
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■or processing a new I/O request 



000166 004737 002204' 



58 000144 

59 000146 
60 

6 1 
62 
63 

64 000152 

65 000156 

66 000162 
67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 000172 

79 
79 

SO 
81 

82 000176 

83 000202 

84 000210 

85 000214 

86 000220 
87 

88 

89 

90 

91 000224 

92 

93 

94 

95 000230 



00 1 002 
000137 



001534' 



BNE 
JMP 



CLREAD 
CLQXIT 



; Br if this is a read operation 
> Br if this is a seek operation 



This is a .READ operation. 

Move queue entry to internal read queue for this unit. 



004737 
012703 
004737 



006220 ' 
0000000 
005724 ' 



CLREAD: CALL 
MOV 
CALL 



LINON 

#CL*RQH.. R3 
MOVQ 



Turn on the line 

Get pointer to read queue head 

Move queue element to internal queue 



Call routine to move any pending characters in silo buffer for this 

line into the data buffer. 



CALL 



IRINGG 



i Move chars from silo buffer to data buffer 



005464 
052765 
012703 
004737 

004737 



F-inished starting the n^sfi operation. 

The queue element will be returned to the system when ute have 

completed the operation. 



000137 000016' 



JMP 



CLOOK 



This is a .WRITE request. 

Move queue element to internal write queue for this CL unit. 



OOOOOOC 



CLWRIT: MEG 



0000000 0000000 CLWRTB: BIS 

OOOOOOG MOV 

005724 ' CALL 

006220 ' CALL 



<3. WCNT-Q. BLKN<R4) ;Make write byte count positive 

#CM*WRT, CL*STA<R5)i Set flag that says a write has been done 

#CL*WQH» R3 J Get pointer to write queue head 

MOVQ .; Move queue element to write queue 

LINON A Turn on the line 



004737 003122' 



000137 000016' 



Move characters from data buffer to output ring buffer and then 
start output to the line. 

CALL ORINGP i Move chars from data buffer to ring buffer 

Finished starting a write operation 
JMP CLQOK 



c 
c 
c 
I 
i 
i 
i 
€ 
€ 
I 
i 
€ 

I 
€ 

< 

i 
i 



i 



TSCLO — 
CLBPFN - 

:L 
2 
3 
4 
5 
6 
7 
S 

10 
1.1. 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



■ . BPFUN 



ation 
p r o c f ? • 



000234 



000234 
000240 
000242 
000246 
000250 
000254 
000256 
000262 
000264 
000270 
000272 
000276 
000300 
000304 



000310 
000314 
000316 



000322 
000326 
000334 



042703 
00 1 430 
020327 
1 1 420 
020327 
103422 
020327 
101410 
020327 
103414 
020327 
1 1 1 i 
162703 
162703 



162703 
006303 
000173 



016400 
052760 
000137 



L. 1 n e 
sinq 
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SBTTL CLSPFN 



. SPf-UN processing 



The current queue request is for a . SPFUN operation 
At this point the following registers are set up: 

Rl = TSX-Plus line index number of line being used by CL unit. 

R3 =■-- .SPFUN code fram «. FUNC. 

R4 -- Pointer to Q. BLKN field of current queue element 

R5 - CL unit index number 



CLSPFN. 



See which group of specitii functions this code is in 



177400 

000004 

000201 

000206 

000250 

000266 

000041 
000174 

00000 1 
000340 ' 



>*: 



BIC 

BEQ 

CMP 

BLOS 

CMP 

BL.0 

CMP 

BLOS 

CMP 

BLO 

CMP 

BHI 

SUB 

SUB 



#'-C-::377:>. R3 

CLERR 

R3, #MAXSFO 

3* 

R3, #201 

CLERR 

R3, #MAXSF1 

2$ 

R3. #250 

CLERR 

R3, #MAXSr"2 

CLERR 

#247-MAXSFl.R3 

#200-MAXSF0, R3 



Clear sign extension 
Function code of is 
Too big for group 0? 
Br if in group 

this code too small? 
if too small 
in group IT' 
yes 

in group 27' 
too small for group 
within group 
not 

for group 
for group 



invalid 



Is 
Br 
Is 
Br 
Is 
Br 
Is 
Br 



it 

if 

it 

if 

it 

if 

Correct 
Correct 



p^ 



1 
O 



codes 
codes 



Branch off to processing routine 



3*: SUB #1,R3 
ASL R3 
JMP SSPFRTN(R3) 



i Subtract lowest function code 

; Convert function code to word table index 

; Enter processing routine 



Invalid special function code 



OOOOOOC CLERR: MOV Q. CSW-Q. BLKW(R4 ) , RO ; Get address of CSW 

OOOOOOG OOOOOOG BIS #CS$ERR, C. CSW<RO) ; Set hard error flag in CSW 

001534' JMP CLQXIT i Do . DRFIN to tell system this op is completed 






c 
f 
f 

4 
I 
€ 
€ 
€ 
€ 
I 
i 

i 

€ 
i 

i 
i 
i 
i 
1 
t 



I 
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i 



3 






4 


000340 




6 






7 






8 


000340 


000422 ■' 


9 


000342 


000604 ■' 


10 


000344 


00 1 534 ' 


11 


000346 


00 1 534 ' 


12 




000004 


13 






14 






15 






16 


000350 


000432 •' 


17 


000352 


000474 ' 


IS 


000354 


000552' 


19 


000356 


000564-' 


20 


000360 


000604 ■' 


21 


000362 


000634 ' 


22 




000206 


24 






25 






26 


000364 


000670 •' 


27 


000366 


000710' 


20 


000370 


000730 ■' 


29 


000372 


00074'1 ■■ 


30 


000374 


000760 ' 


31 


000376 


000774 ' 


32 


000400 


001014' 


33 


000402 


001032' 


34 


000404 


000152' 


35 


000406 


001072' 


36 


000410 


00 1 1 1 ;> ' 


37 


000412 


000202 ' 


3S 


000414 


00 1 1 70 ■' 


39 


000416 


001246' 


40 


000420 


001256' 


41 




000266 



Branch vector for . SPFUN processing routines based on function code value. 
SPFRTN: 



i Gt o u p 


0; Function codes i 


SFGRPO: 


WORD 


SFCLDS 




WORD 


SFTERM 




WORD 


CLQXIT 




WORD 


CLQXIT 


HAXSFO 


X 


<. -SF0RP0>/2 



the range 1 to 4 



001 - Close file 

002 - Delete file 

003 ~ Lookup file 

004 - Enter file 

Maximum function code value in group O 



Group 1: Function codes in the range 201 to 247. 



SFGRPl 



WORD 
WORD 
WORD 
WORD 
WORD 
WORD 



MAX5 



BFCLER 

SFBREK 

SPREAD 

SFSTAT 

SFTERM 

SFDTR 

200+«-. 



i 201 
;202 
i 203 
; 204 
; 205 
5 206 



Clear flags 

Break transmission control 

Special read with byte count 

Get handler status 

Terminate I/O 

Raise or drop DTR signal 



Group 



-•SFGRPl>/2> ; Highest function code in group 1 
Function codes with values of 250 or greater. 



SFGRP2: 



. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 



MAXSF2 



SFSOPT 

SFCOPT 

SFSLEN 

SFSSKP 

SFSWID 

SFGMS 

SFSPD 

SFABT 

CLREAD 

SFIC 

SFOC 

CLWRTB 

SFSEFP 

SFREST 

SFGOPT 

247+«. 



- Set option flags 

- Clear option flags 
-- Set page length 

- Set skip lines 

- Set page width 

- Get modem status 

- Set transmit/receive speed 

; 257 - Abort all pending read/write requests 

i 260 " Read line with byte count 

Get number of pending input characters 

Get number of pending output chars 

Write with byte count 

Set end~of-file output control 

Reset CL unit 

Get current options and settings 



i 252 
i 253 
i 254 
i255 
i 256 



; 261 
i 262 

i 264 
i 265 
;266 



SFQHP2.:>/2.y > Highest legal function # in group 
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€ 

i 



1 

2 
3 
4 

5 000422 

6 000426 
7 

8 

9 
10 
il 
12 
13 

14 000432 
15 

16 
17 

15 000432 
19 

20 
21 

22 000440 

23 000446 

24 000452 
215 

26 

27 

28 000456 

29 

30 

31 

33 

34 

35 

36 000470 

37 

38 

39 

40 

41 

42 

43 

44 

45 000474 

46 000500 
47 

48 
49 

50 000502 

51 000510 

52 000514 

53 000520 

54 000524 
55 

56 
57 



Spec Ja.'l function # 1 
ClcBB file. 



004737 001712' 



000; 



001534 



SFCLOS: CALL 
JMP 



CLCLOS 
CLQXIT 



j Perform end-of-file operations 
; Finished 



042761 OOOOOOG OOOOOOG 



042761 OOOOOOG OOOOOOG 
016100 OOOOOOG 
004770 OOOOOOG 



004737 005506' 



000462 042765 OOOOOOG OOOOOOG 



000137 001534' 



Special function # 201 

CI {?ar handler flags. 

The effect is to clear the flag saying we have received an XOFF 

and to send an XON. 

SFCLER; 

Clear flag saying we have received an XOf-F 

BIC #*CTRLS,LSW3<Rl>i Clear the ctrl-S flag 

Send an XON 

BIC #*HISTP>LSW10<R1)J Say input has not been stopped by XOFF 

MOV LCDTYP(Rl), RO ; Get device type code 

CALL @CDSX0N(R0) iCall routine to stuff XON into output 

Start output 

CALL CLSTRT j Start transmission 

Clear end of file flag 

BIC #CM$EOF, CL-*STA<R5)i Clear end of file status 
Fini &hed 

v)MP CLQXIT i Finished with operation 



Special function # 202 

Start or stop sending a break. 

Word count non-zero =--> Start sending a break. 

Word count zero -=> End sending a break. 



005764 
00 1 4 1 2 



052765 
012700 
004737 
004737 
000410 



OOOOOOC 



SFBREK: TST 
BEQ 



Q. WCNT-Q. BLKN(R4) ; Start or end break? 

1* i Br if we are ending a break 



Be<:!in sending a break 



OOOOOOG 
OOOOOOG 
006340 ' 
005506 ' 



OOOOOOG 



BIS 

MOV 

CALL 

CALL 

BR 



#CM*BRK* CL*STA<R5); Set flag saying we are sending a break 

#MS$BRK. RO ;Set flag to start break transmission 

SETBRK iCall hardware routine to start sending break 

CLSTRT i Start transmitter 

9* 



End sending a break 



TSCLO - 
CLSPFN • 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 

81 

82 

S3 

B4 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

lOS 

109 

110 

111 

112 

1 1 3 

114 
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000526 005000 

000530 004737 006340' 

000534 042765 OOOOOOQ OOOOOOG 

000542 004737 005506' 



000 546 000 1 37 00 1 534 ' 



1*: 



CLR 
CALL 
13 1 C 
CALL 



F i n i B h e d 
9* : vJMP 



RO ; Clear break-send flag 

SETBRK iCall hardware routine to end break 

#CM*BRK, CL*STA(R5); Clear flag that says ue are sending a break 

CLSTRT J Start transmitter 



CLQXIT 



i Finished with . SPFUN 



Special function # 203 

Read with Q, WCNT indicating the byte count rather than the word count 



000552 042765 0000000 OOOOOOG SPREAD: BIC 
000560 000137 000152' JMP 



#CM*EOF. CL*STA<R5); Clear end of file status 
CLREAD i Enter read routine (Q. WCNT 



byte count) 



Spec i 

Get h 

The f 

user ' 

High 

Low 

XL*XFX 

XL*XFR 

XL*CTS 

Next 
XL*CD 
XL«R1 



al function # 204 

andler status. 

ollowing information is stored into the first word of the 

B buffer: 

order byte: Handler version number 
order byte: 



bit 
bit 1 
bit 2 



1 ==> We have sent XDFF to stop transmission to us. 

1 ==> We have received an XOFF. 

1 ==."> Clear To Send <CTS) is asserted, 
two are RT 5.4 compatible 
bit 3: 1 ==.> Carrier is detected 
b i t 4 : 1 ==.> R i n q i & detected 



000564 010246 

000566 004737 001432' 
000572 004737 001572' 



000576 012602 

000600 000 1 37 00 1 534 ' 



SFSTAT: MOV 

CALL 
CALL 

F' i n i B h e d 

MOV 
JMP 



R2. ~(SP) 

CLGSTS 
CLPTWD 



<SP)+, R2 
CLQXIT 



/Call common routine to get status 
i Store value into user's buffer 



; Finished with operation 



00060^^1 



000604 042765 OOOOOOG OOOOOOG 



000612 004737 001756' 



000616 042765 OOOOOOG OOOOOOG 



Special function # 205 
Terminate I/O to the line. 

SFTERM: 

; Set flag saying to ignore^ input from the line 

BIC #CM$ON, CL$STA<R5); Say line is turned off 

Clear input and output oilos and other CL unit status 

CALL CLREST i Reset the CL unit 

Drop Data Terminal Ready 

BIC #CO*DTR/ CL*0PT(R5.) i Say we want DTR off 



TSCLO — 
CLSPFN - 

lis 

116 
117 
US 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 

130 

131 
132 
133 
134 
135 
136 
137 
1 3Q 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
1 50 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
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000624 004737 006242 ' 



000630 000137 001534' 



000634 
000640 



000642 
000650 



000652 
000660 
000664 



000670 
000674 
000700 
000704 



000710 
000714 
000720 
000724 



000730 
000734 
000740 



000744 
000750 
000754 



CALL 
F" i n i B h e d 
JMP 



SETDTR 



CLQXIT 



jCail routine to drop DTR 



Special function # 206 
Raise or drop DTR signal. 



005764 OOOOOOC 
00 1 004 



042765 OOOOOOG OOOOOOG 

000403 



052765 OOOOOOG OOOOOOG 1$; 
004737 006242 ' 
000137 001534' 



SFI 


5TR: 




TST 
BNE 




Dro 


P 


D1R 

BIC 
.BR 




Ra:i 


c. 


B DTR 


1$; 






BIS 


2$: 






CALL 
JMP 



Q. WCNT-0. BLKN<R4) ; Raise or drop DTR? 
1* ; Br if raising DTR 



#CO*DTR, CL*DPT(R5) i Drop DTR 
2* 



#CO*DTR, CL*0PT(R5.) .: Raise DTR 

SETDTR iCall routine to raise or drop DTR 

CLQXIT > Finished with . SPFUN 



Special function # 250 
Set option flags 



004737 001634' 

050065 OOOOOOG 

004737 006242 ' 

000137 001534' 



SFSOPT: 


CALL 


GETWRD 




BIS 


RO,CL*OPT<R 




CALL 


SETDTR 




JMP 


CLQXIT 



J Get word from user's buffer 
i Set specified option flags 
i Check for DTR status change 



Special function # 251 
Clear option flags 



004737 001634' 

040065 OOOOOOG 

004737 006242' 

000137 001534' 



SFCOPT: 


CALL 


GETWRD 




BIC 


RO, CL*0PT(R5) 




CALL 


SETDTR 




JMP 


CLQXIT 



Get word from user's buffer 
Clear specified option flags 
Check for DTR status change 



i 

4 



Special function # 252 
Set page length 



004737 001634' 
010065 OOOOOOG 
000137 001534' 



SFSLEN: CALL 
MOV 
JMP 



GETWRD 

RO, CL*LEN<R5) 

CLQXIT 



i Get ujord from user's buffer 
.; Set page length for this unit 



Special function # 253 

Set number of lines to skip at bottom of page. 



004737 001634' 
010065 OOOOOOG 
000137 001534' 



SFSSKP: CALL 
MOV 
JMP 



GETWRD 

RO, CL*SKP(R5) 

CLQXIT 



i Get word from user's buffer 
i Set skip 1 ines 
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.172 

173 

174 

175 

176 

177 

178 

179 

ISO 

IBl 

182 

183 

184 

185 

1 So 

187 

1 88 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

214 
215 
216 
217 
218 
219 



000760 004737 001634' 
000764 010065 0000000 
000770 000 1 37 00 1 534 ' 



000774 010246 



000776 004737 OOOOOOG 



001002 004737 001572' 



001006 
001010 



1 2602 

000137 001534' 



001014 
001020 
001022 
001026 



004737 001634' 

103402 

004737 0000000 

000137 001534' 



001032 
001034 



225 
226 
227 



001040 
001044 



001050 
001054 



010446 
116404 



012703 
004737 



1 2703 
004737 



OOOOOOC 



OOOOOOG 
005614' 



OOOOOOG 
005614' 



.: Special function # 254 

i Set line width. 

i 

SFSWID: CALL GETWRD 

MOV RO, CL*WID<R5) 
sJMP CLQXIT 



; Get word from user's buffer 
■> Set 1 ine width 



i Special function # 255 
; Get modem status 

i 

SFGMS: MOV R2. -(SP) 

i 

'} Ca 11 hard ware dependent rout tine to get the modem status 

> 

CALL GETDSS ; Call routine to get the data set status 

■> Return status value to Ist word of user's buffer 

CALL CLPTWD ; Store value into 1st word of user's buffer 

i Finished 



MOV 
JMP 



( SP ) +, R2 
CLQXIT 



; Finished I/O operation 



Special function # 256. 
Set transmit/receive speed. 



SFSPD; 



CALL 


GETWRD 


BCS 


1* 


CALL 


SETSPD 


^JMP 


CLQXIT 



Get word from user's buffer 
Br if invalid buffer address 
Set the speed 
Finished 



■> Special function # 257. 

} Abort all pending read and write requests for the job. 

> 

> Input s : 

; R4 ~- Pointer to 3rd word of . SPFUN queue element. 

SFABT: MOV R4, ~(SP) i Save pointer to current queue element 

MOVE Q. JOB-Q. BLKN<R4), R4 i Get job # from .SPFUN queue element 



Abort pending read reque&ts for this job 



MOV #CL*RQH, R3 
CALL CKABTQ 



; Point to read queue head 
i Abort pending reads for job 



Abort pending write requests for this job 



MOV #CL*WQH, R3 
CALL CKABTQ 



; Point to write queue head 
; Abort pending writs for job 



( 
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230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 
248 
24V 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 



001060 004737 00600c 



001064 
001066 



001072 
001076 
001102 
001106 



001 

001 

001 
nm 

001 
001 
001 
001 
001 
001 
001 
001 
001 
001 



112 
114 

120 

130 
132 
140 
142 
144 
152 
154 
156 
160 
164 



001170 



001170 
001174 
001176 
001202 
001204 



001210 
001214 



001224 



012604 
000137 



016100 
166100 
004737 
000137 



010446 
016500 
166500 
016504 
001412 
032765 
001401 
005200 
032764 
001401 
005200 
012604 
004737 
000137 



004737 
103422 
120027 
00 1 402 

010065 



016502 
012703 
004737 
121627 



Call routine to return any freed queue elements to the system 

CALL RTNQ .; F?eturn freed queue elements to the system 

Finished 



001534' 



MOV 
JMP 



( SP ) +, R4 
CLQXIT 



; Restore pointer to queue element 
; Finished operation 



Special function # 261. 

Get number of bytes pending in input silo buffer. 



OOOOOOG 
0000000 
001572' 
001534' 



SF.IC: 



MOV 


LHIRBA(Rl), RO 


SUB 


LHIRBS<R1)> RO 


CALL 


CLPTWD 


JMP 


CLQXIT 



Oet allocated size of input buffer 
Subtract free space to get # chars in 
Store value into user's buffer 
Finished with operation 



buf 



Special function # 262. 

Get number of bytes pending in output ring buffer. 



SFOC: 



OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG OOOOOOG 



OOOOOOG OOOOOOG 2*: 



1*: 



001572' 
001534' 



MOV 


R4, -(SP) 


MOV 


CL*0RA(R5>. RO 


SUB 


CL*0RS<R5), RO 


MOV 


CL*LIX(R5), R4 


BEG 


1* 


BIT 


#CM*EFP, CL*STA(R 


BEG 


2* 


INC 


RO 


BIT 


#*XCHAR, LSW3<R4) 


BEG 


1* 


INC 


RO 


MOV 


<SP)+, R4 


CALL 


CLPTWD 


■JMP 


CLQXIT 



Get allocated space for output ring buffer 

Subtract free space to get # chars in buf 

Get index # of line we are assigned to 

Br if not assigned to a line 

i);Are we doing end-of-file processing? 

Br if not 

Add an extra character 

Is output transmission going to line now? 

Br if not 

Say another character pending for output 

Restore pointer into queue element 

Store value into user's buffer 

Finished with operation 



Special function # 264. 

Set end-of-file output processing 



control information. 



SFSEFP; 



Set form-feed count 



001634' 

000377 

OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
000377 



Set 



2$: 



1*: 



CALL 


GETWRD 


BCS 


9* 


CMPB 


RO, #377 


BEG 


2* 


MOV 


RO, CL$EPN<R5) 


p end- 


-of-file output 


MOV 


CL*EPS(R5),R2 


MOV 


#CLEOFS, R3 


CALL 


GTBYT 


CMPB 


< SP ) , #377 



»Get form-feed count from user's buffer 

i Br if invalid buffer address 

; Don't change form-feed count? 

i Br if don't-change value 

j Set # form-feeds to send at end-of-file 



string 

i Get 

i Get 
; Get 



pointer to area where string is stored 
max # bytes allowed for string 
next byte from string 



Don't change string? 



JF 
t 



f 

f 
f 

I 

( 

€ 
€ 

i 
€ 
i 
C 

4 

I 
1 

i 
i 

i 



TSCLO — 
CLSPFN - 

286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

333 
334 
335 
336 
337 
33a 
339 
340 
341 
342 
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001230 
001232 
001234 
001236 
001240 



001404 
1 1 2622 
001402 
077310 
105022 



001242 000137 001534' 



001246 
001252 



001256 



001256 
001262 
001266 



001270 
001274 



001300 
001304 



001310 
001314 



004737 
000137 



004737 
004737 
103457 



016500 
004737 



016500 

004737 



016500 
004737 



001756 
001534 



001432' 
001572' 



0000000 
001572' 



0000000 
001572' 



0000000 

001572' 



BEG 

MOVE 

BEQ 

SOB 

CLRB 



Fini shed 
9$: JMP 



9* 

(SP)+, <R2) + 

9* 

R3, 1* 

<R2) + 



CLQXIT 



iBr if don't change 

i Move char to string area 

; Br if this is end of string 

j Loop if me can get more chars 

j Terminate string with null 



i Finished 



Special function # 265. 
Ret>et CL unit. 



SFREST: CALL 
JMP 



CLREST 
CLQXIT 



;Call routine to re&et CL unit status 
> Finished 



Special function # 266 

Oet current options and settings. 



Returns 13 words to user buffer 

1 Handler status as for SPFUN 204 

CL options flags 

internal flags word 

page length 

end of page skip lines 

page width 

TS line number and CL unit number 

number end of file form feeds 



2 
3 
4 
5 
6 
7 
8 



9-12 end of file string, ASCIZ up to CLEOFS long 
SFGDPT: 



Get and return status word just as for SPFUN 204 
word 1 

CALL CLGSTS 
CALL CLPTWD 



BCi 



9* 



/Get current status word 

; Return to user buffer 

; Error return if no chan or odd buff addr 



Return CL options word 
word 2 

MOV CL*0PT<R5),R0 
CALL CLPTWD 

Return internal status word 
word 3 

MOV CL*STA(R5),R0 
CALL CLPTWD 

Return current page length 
word 4 

MOV CL*LEN<R5),R0 
CALL CLPTWD 



; Get options word 

i Return to user buffer 



;Get internal status word 
; Return to user buffer 



; Get current length 
/Return to user buffer 



Return current number lines to skip at end of page 
word 5 
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343 


001320 


016500 


OOOOOOG 


344 


001324 


004737 


001572' 


345 








346 








347 








348 


001330 


016500 


OOOOOOG 


349 


001334 


004737 


001572' 


350 








351 








352 








353 








354 


001340 


010146 




355 


001342 


010500 




356 


001344 


000300 




357 


001346 


052600 




358 


001350 


006200 




359 


001352 


004737 


001572' 


360 








361 








362 








363 


001356 


016500 


OOOOOOG 


364 


001362 


004737 


001572' 


365 








366 








367 








368 


001366 


010246 




369 


001370 


010346 




370 


001372 


012703 


OOOOOOG 


371 


001376 


016502 


OOOOOOG 


372 


001402 


1 1 2246 




373 


001404 


001404 




374 


001406 


004737 


OOOOOOG 


375 


001412 


077305 




376 


001414 


005046 




377 


001416 


004737 


OOOOOOG 


378 


001422 


012603 




379 


001424 


012602 




390 








381 








382 








383 


001426 


000137 


001534' 



MOV 
CALL 



CL*SKP<R5>>R0 
CLPTWD 



Return current page midth 
wort! 6 

MOV CL*WID(R5), RO 

CALL CLPTWD 



> Get current # skip lines 
j Return to user buffer 



i Get current width 

i Return to user buffer 

unit — > low byte 

(will be > 7 if CI unit); 

i Get T/S line index 

■> Get CL unit index 

i Move to high byte 

> Merge in line index 

i Convert indices to numbers 

; Return to user buffer 



Return current # end of file form feeds 

word S 

MOV CL*EPN(R5),R0 .: Get EOF FF ' s 

CALL CLPTWD ; Return to user buffer 



Line number 


being used at CL 


CL unit numb 


er — > high byte 


word 7 




MOV 


R 1 , - ( SP ) 


MOV 


R5, RO 


SWAB 


RO 


BIS 


(SP)+, RO 


ASR 


RO 


CALL 


CLPTWD 



Return current end of file string 
woT-ds 9-12 





MOV 


R2, -(SP) 




MOV 


R3, -(SP) 




MOV 


#CLEOFS, R3 




MOV 


CL*EPS(R5),R2 


1$: 


MOVE 


( R2 ) +, - ( SP ) 




BEQ 


2* 




CALL 


PTBYT 




SOB 


R3, 1* 




CLR 


"(SP) 


2*: 


CALL 


PTBYT 




MOV 


(SP)+, R3 




MOV 


( SP ) +, R2 




Finis;.hed 




9*: 


vJMP 


CLQXIT 



; Save reg i sters 

Get number of chars to move 
Get pointer to EOF string 
Get next character 
Stop at end of string 
Else move to user buffer 
Move up to maximum length 
Always return ASCIZ string 
Move last char to user buffer 
Restore registers 
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1 
2 
3 
4 
5 
6 
7 

a 

9 
10 
l.t 

12 001432 010346 
13 
14 
15 
16 
17 
18 
19 
20 
21 



. SBTTL CLGSTS — Ri;-turn CL device status 



23 
24 
25 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 



CLOSTS is called by CL . SPFUNs 204 and 266 to return the CL version 

number and modem status bits in RO. 

Inputs: 

Rl index number of line being used as CL unit 

R'5 contains the CL unit index number 
Outputs: 

RO contains the version and status bits 

<5ee . SPFUN 204 for complete bit description) 



CLGSTS: MOV R3, -(SP) ; Save R3 
Get version number to high -order byte 



001434 113703 OOOOOOG 
001440 042703 177400 
001444 000303 



i Get version number 

jKill possible sign extension 

; Move version to high byte 



See if lue have sent an XOFF to stop transmission to us 



MOVE 


CLVERS. R3 


BIC 


#---C377, R3 


SWAB 


R3 



001446 032761 OOOOOOG OOOOOOG 

001454 001402 

001456 052703 OOOOOOG 



BIT 
BEO 



#*HISTP, LSWJO(Rl)i Have me send XOFF? 
1$ i Dr if not 

#XL$XFX>R3 ;Set status flag 



See if we have received an XOFF 



001462 032761 OOOOOOG OOOOOOG 1*: 

001470 00140r^ 

001472 052703 OOOOOOG 



BIT #*CTRLS>LSW3<Ri)i Have we received an XOFF? 

BFQ 2* .; Br if not 

BIS #XL$XFR, R3 i Set status flag 



001476 004737 OOOOOOG 

001502 032700 OOOOOOG 

001506 001402 

001510 052703 OOOOOOC 



001514 032700 OOOOOOG 

001520 001402 

001522 052703 OOOOOOG 



001526 010300 
001530 012603 
001532 000207 



2*: 



See if Clear To Send <CTS) is asserted 

CALL GETDSS ;Call routine to get dataset status 

BIT #MS*CAR,RO ils carrier detected? 

BEQ 3* ;Br if not 

BIS tCXL^CTSIXL'gCDlJ-, R3 ; Say CTS is asserted and ring detected 



See if Rinq is asserted 



3*: 



BIT 


#MS$RIMG, RO 


BEO 


4$ 


BIS 


#XL*RI, R3 



4$: 



Return status value in F<0 

MOV R3, RO 
MOV <SP>+, R3 
RETURN 



jls ring detected 7" 

; Br if not 

; Say ring is detected 



j Get value to RO for CLPTWD 
> Restore R3 



€ 
i 



TSCLO - 
Ci-GSTS 
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.1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 



We c-Dfiipleted the I/O operation. 

Return the queue eleme^nt to the system. 

I n p u t B : 
R4 = Address of current queue element. 

001534 CLQXIT: DISABL ; ; ; »* Disable interrupts ** 

001542 013764 000004' OOOOOOC MOV CQH, Q. Ll'NK-G. BLKN(R4) ; ; i Put queue element on completed list 



001550 010437 000004' 

001554 

001562 004737 006002' 



001566 000137 000016' 



MOV 

ENABL 

CALL 



** Enable interrupts 

Return queue element to the system 



R4, CQH 
RTNQ 
Oo back and see if there is another queue element pending 

JMP CLQOK ; Oo back and check for another request 



t 

I 
i 
i 

4 



TSC L -— Co nm u n i c a 1 1 o n 
CLPTWD --• Store 1 word 
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1 

9 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 
nn 

23 
24 
25 
26 

27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 



SBTTL CLPTWD — Stort? 1 word into user's buffer 



00157c 



001 
001 



001 
001 
001 
001 
001 



572 
600 



602 
606 
610 
616 
620 



032764 
001410 



016400 
001403 
052760 
000261 
000404 



000001 OOOOOOC 



OOOOOOC 
0000000 OOOOOOG 



CLPTWD is called from some of the . SPFUN processing routines to store 
a one word value into the 1st word of the user's data buffer. 
If the buffer address is odd, the error flag is set in the channel 
status word, the C-flag is set on return, and the value is not stored. 

Inputs : 
RO = Value to store. 
R4 ~ Pointer to current queue element. 

Outputs: 
C-flag set ==> Error: buffer address odd 

CLPTWD: 

See if the buffer address is odd 

BIT #1. Q. BUFF-Q. BLKN(R4) .; I s the buffer address odd? 
BEQ 1* ; Br if not 



Error: The buffer address is odd 



MOV 
BEQ 
BIS 
SEC 
BR 



Q. CSW-Q. BLKN<R4), RO i Get address of CSW for channel 
2* i Br if no channel address 

#CS*ERR, C. C5W<R0)i Set error flag in CSW 

i Signal error on return 

9* 



Buffer address is OK. 

Call PTWRD to store the value. 



001 
001 
001 



624 
630 



00163^ 



010046 
004737 
000241 



000207 



1$: 



OOOOOOG 



CALL 
CLC 

F i n a s h e d 

9$: RETURN 



RO, -<SP> 
PTWRD 



; Stack the value for PTWRD 

; Store value into user's buffer 

i Signal success on return 



TSCLO - 
GETWRD 



- Communication 
- Get 1 word f'T 
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om user ' s buf f'er 



. SBTTL GETWRD — Get 1 word from user's buffer 



3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



001634 



001634 
001642 



001644 
001650 
001652 
001660 
001662 
001664 



PElWRD is called from some of the . SPFUN processing routines to get 
a o?ie word value from th& 1st word of the user's data buffer. 
If the buffer address is odd* the error flag is set in the channel 
status word, the C-flag is set on return, and (zero) is returned 
in RO. 

Inputs : 
R4 ~ Pointer to current queue element 

Outputs: 
RO = Value from 1st uio'cd of data buffer 

C-flag set ==> Buffer address was odd <R0 contains O in this case). 
Buffer address is incremented by 2 in queue element. 

:)ETWRD: 

See if the buffer address is odd 



032764 
001411 



016400 
001403 
052760 
00 5000 
000261 
000411 



000001 ooooooc 



BIT #1, Q. BUFP-Q. BLKN(R4) 
BEQ 1* 

Error: The buffer address is odd 



ooooooc 
0000000 ooooooc 



2*; 



MOV 
BEG 
BIS 
CLR 
SEC 
BR 



Q. CSW-Q. BLKN(R4), RO 

2« 

#CS*ERR, C. CSW(RO) 

RO 

9* 



.:l5 the buffer address odd?' 
i Br if not odd 



i Get address of channel status word 

; Br if there is none 

i Set error flag in channel status 

; Return O in RO 

i Signal error on return 



001666 016437 OOOOOOC OOOOOOC 



Buffer address is ok. 

Map PAR6 to user's bufff?r. 

MOV Q. PAR-Q. BL.KN<R4), e#KPAR6 ; Map KPAR6 to user's buffer 

Get word from the buffer 



001674 017400 
001700 062764 
001706 000241 



001710 000207 



OOOOOOC 
000002 



OOOOOOC 



9$ 



MOV 
ADD 
CLC 

F i n i shed 

RETURN 



@Q. BUFF-O. BLKN(R4), RO 
#2, Q. BUFF-Q. BLKN<R4) 



i Get value from buffer 
; Advance buffer address 
; Signal success on return 



f 
I 
I 
I 
i 

i 
I 
I 
€ 
« 

i 
i 

€ 
i 
4 

c 
i 
i 
i 
i 
i 



OOOOOOG OOOOOOG 



TSCLO — CoRimuni cat i on 
CLCLOS — Initiate end 



3 

4 

5 

h 

7 

8 

9 001712 
10 
11 
12 

13 00 

14 00 
15 
16 
17 

15 00 
19 00 
20 

21 

22 

23 001736 105065 OOOOOIG 

24 

25 

26 

27 001742 016565 OOOOOOG OOOOOOG 

28 

29 

30 

31 001750 004737 

32 

33 

34 

35 001754 000207 
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■Df-file processing 



BBTTL CLCLOS — Initiate end-of-file processing 



1712 
1720 



1722 
1730 



032765 
001415 



052765 
042765 



OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



CLCLOS is called when erid of file is reached on output processing 
and we want to initiate the end-of-file output processing. 

1 n p u t s : 
R5 = CL unit index 

CLCLOB: 

Only do output EOF proce&sing if a write was done to this unit 

BIT #CM*WRT, CL*STA<R5)i Was a write done to this unit? 
BEQ 9* J Br if not 

Say we are doing end-of-file processing 

BIS #CM*EFP. CL*STA(R5)i We have started EOF processing for unit 
BIC #CM*WRT, CL*STA<R5); Clear write-done flag for unit 

Reset form-feed count 

CLRB CL*EPN+1(R5) ; Say no form-feeds sent yet 
Re&et ENDSTRING pointer 

MOV CL*EPS(R5>, CL*EPP<R5); Reset endstring pointer 
Initiate output to thf? unit 

CALL ORINGP > Initiate output to unit 

Fini shed 
9*: RETURN 



( 



( 



TSCLO - 
CLREST 



3 
4 
5 
6 
7 
S 
9 
it) 
11 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
3R 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



Communi cati on Line <CL 
• Reset a CL unit 
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. SBTTL CLREST — Re&et a CL unit 



001756 010146 



001760 016501 OOOOOOG 



001764 
001772 
001776 
002002 
002006 



002014 
002020 
002024 
002030 
002036 



016100 
010061 
010061 
016161 



016500 
010065 
010065 
016565 



ooooooe 

OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



OOOOOOG 



OOOOOOG 



002044 042761 OOOOOOG OOOOOOG 



00205^ 



002060 
002066 
002070 
002072 
002076 



002104 
002110 



042765 ooooooe OOOOOOG 



032765 
001406 
005000 
004737 
042765 



005065 
005065 



OOOOOOG OOOOOOG 



006340 •' 
OOOOOOG 



OOOOOOG 
OOOOOOG 



OOOOOOG 



Reset a CL unit. This consists of the following actions: 

1. Empty input silo. 

2. Empty output silo. 

3. Reset line and coJumn positions. 

4. Stop sending break if we are currently sending it. 

5. Clear flag that says we have received an XDFF. 

6. Send an XON if lue previously sent an XOFF. 

Input s : 
R5 = CL unit number index 

CLREST: MOV Rl.-(SP) 

Get line # CL unit is covmected to 

MOV CL*LIX(R5), Rl i Get line inde.x number 

Clear out the input silo buffer 



DISABL 

MOV LHIRBB(R1>,R0 

MOV RO, LHIR13P(Ri ) 

MOV RO, LHIRBG<R1) 



•«•* Disable interrupts «* 
Get pointer to start of silo buffer 
Reset input interrupt pointer 
Reset next available char pointer 



MOV LHIRBA(Rl), LHIRBS<Rl)i i i Reset free space counter 
Clear out the output silo buffer 



MOV 
MOV 
MOV 



CL*0RB<R5), RO 
RO, CL*0RP(R5) 
RO, CL*0RG(R5) 



J i Get pointer to start of output silo buffer 
; ; Output character pointer 
iiNext available output character 

MOV CL*aRA<R5)> CL*0RS<R5); i i Available space in output buffer 

ENABL i ** Enable interrupts ** 



Clear flag that says we have received an XOFF 

BIC #«CTRLS, LSW3<R1>; Say line output not suspended due to XOFF 
Clear some status flags for the unit 

B I C #<CM*WRT ! CM*EFP ! CM*CRL ! CM*TBS ! CM*EOF f CM*FFS>, CL«STA < R5 ) 

If we are sending a break, stop now 

BIT #CM$BRK, CL*STA(R5); Are we sending a break now? 

BEO 1* ; Br if not 

CLR RO ; Say to reset break transmission 

CALL SETBRK i Stop sending break 

BIC #CM*BRK, CL*STA(R5.); Say break transmission finished 



145; 



Reset page and line po&ition 

CLR CL*LIN<R5) 
CLR CL$C0L<R5) 



J Say we are at the top of a page 

iSay we are at left-most column of line 



If we previously sent an XOFF to stop the sender, send an XON now. 



TSCLO — 


- Communication 


Line (CL 


MACRO v;05. 04 Monday 2 


CLREST - 


-- Reset 


a CL m 


(it 




58 








> 


59 


002114 


032761 


0000000 


OOOOOOG B I T 


60 


002122 


001407 




BEG 


61 


002124 


042761 


OOOOOOG 


OOOOOOG BIG 


62 


002132 


016100 


OOOOOOQ 


MOV 


63 


002136 


004770 


OOOOOOG 


CALL 


64 










65 








i FiniBhed 


66 










67 


002142 


01 260 J 




9*: MOV 


68 


002144 


000207 




RETURN 
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#*HISTP. LSW10<R1 ).: Did we send an XOFF? 

9$ > Br if tiot 

#*HISTP. LSWJO(Rl); Can XOFF has been cleared 

LCDTYP<RJ ), RO > Get line type index 

@CDSXCN<RO) ;Send XON 



<SP)+, Rl 



TSCLD — Co(7imuni cation Line (CL MACRO 
CLINCP — Input character processing 



1 
2 
3 
4 
5 
6 
7 
8 
9 

10 002146 

11 002150 
12 

13 

14 

15 002152 

16 

17 

IS 

19 

20 

21 002156 

22 002162 

23 002164 

24 002170 
25 

26 
27 
28 
29 



010146 
0:1.0546 



016405 OOOOOOG 



016501 OOOOOOG 

00 1 403 

004777 OOOOOOG 

000402 



002172 004737 002204" 



30 
31 
32 

33 002176 

34 002200 

35 002202 



012605 
0:1260.1 
000207 
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SBTTL CLINCP — Input character processing 



CLliMCP is called at fork level after each received character has been 
stored in the input silo buffer. Its primary function is to move 
characters from the input silo buffer to the user's data buffer. 

Inputs: 
R4 - Line index number of line that received a character. 



CLINCP: MOV 
MOV 



R 1 , - ( SP ) 
R5, -(SP) 



Convert line index number to CL unit index 

MOV LCLUNT<R4), R5 > Carry CL unit number in R5 

If this CL unit is cross connected to a time-sharing line* try to 
start output to the time-sharing line <it will fetch characters 
directly from the input silo for the CL unit). 

; Is this CL unit cross-connected to TT line? 

J Br if not 

; Try to start output to TT line 

See if uje need to move any characters from the input silo buffer 
to the user's data bufft-r 

; Move chars to user's data buffer 



MOV 


CL$XLN(R5),R1 


BEQ 


1* 


CALL 


STRNSTR 


BR 


9* 



1*: CALL 


IRINGG 


; f ■ i n i s h e d 




9*: MOV 


<SP)+,R5 


MOV 


(SP)+, Rl 


RETURN 





€ 



TSCLO — Conmuriica ti on 
IRINGG — - Move chars fr 
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am silo buf=fer bo data buffer 



3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 

29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



002204 



002204 

I2K 
i22< 
002222 
002230 



002232 
002240 



032765 
00 1 404 

000207 



OOOOOOG 0000000 



. SBTTL IRINQG — Move chars from silo buffer to data buffer 

IRINOG is called to move all characters from the terminal input 
silo buffer to the current read data buffer. 

I n p u !• s : 
R5 ■- CL unit index number 

IRINGG: 

See if this routine is already being used by this unit. 

if so., don't reenter it (the other process will transfer all characters). 

DISABL ; ; i #*• Disable interrupts «•* 

BIT #CM$IRG> CL*STA<R5) iii Is this routine already active for unit? 

BEQ 2* ; ; ; Br if not 

ENABL ; ^i« Enable interrupts *«• 

RETURN 



ThiB routine is not active., claim it for us 



052765 OOOOOOG OOOOOOG 2f: 



BIS 
ENABL 



#CM*IRG> CL*STA<R5) .; ; i Say the routine is now active 

i *« Enable interrupts ** 



Push some registers 



002250 
002252 
002254 



010146 
010246 
010346 
010446 



MOV 


R 1 , - ( SP ) 


MOV 


R2, -(SP) 


MOV 


R3, -(SP) 


MOV 


R4, -(SP) 



002256 016501 OOOOOOG 



002262 
002270 
002274 
002276 
002304 
002306 
002314 



Get index number of line associated luith this CL unit 

MOV CL*LIX(R5),R1 J Get line index number 

See if there are any characters in the input buffer and if there 
is a pending read request for this unit. 



016504 
001475 
032765 
001004 
026161 
001465 



OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



3*: DISABL 

MOV CL*R(3H(R5), R4 

BE(3 9* 

BIT 

BNE 



; ; ; ** Disable interrupts «■* 

iii Is there a pending read request? 

i i iBr if not 

#CM$EOF, CL*STA(R5); i i Need to report end of file? 

7* ; i > Br if yes 



002316 



002324 032765 

002332 001413 

002334 016403 

002340 052763 



OOOOOOG OOOOOOG 

OOOOOOC 
OOOOOOG OOOOOOG 



CMP LHIRBS(R1 ), LHIRBA(Rl)i i i Any chars in the silo buffer? 
BEQ 9* iii Br if not 

There are characters in the silo buffer and there is a pending 
read request. 

7-*: ENABL ;•»•«• Enable interrupts «« 

; See if flag is set which indicates that we should signal end-of-file 

i 

BIT #CM*EOF, CL1iSTA(R5)i Should u»e signal end of file? 

BEQ 4* ; Br if not 

MOV (3. CSW-Q. BLKN(R4),R3; Get pointer to CSW for channel 

BIS #CS*EOF, C. CSW(R3)i Set end of file flag 



TSCLO - 
IRINGG - 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

60 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

SO 

01 

82 

83 

84 

85 

86 

87 

OS 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

1 03 

104 

105 

106 

107 

108 

109 

110 
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— Move chars from silo buffer to data buffer 



002346 
002354 
002360 



002362 
002366 
002370 



002372 
002376 
002400 
002402 
002404 
002412 
002414 
002422 
002424 
002426 
002430 
002434 



002442 
002450 
002452 
002460 
002462 
002466 



002470 
002476 



002504 
002506 
002510 
002512 
002514 



042765 
004737 
000740 



004777 
103440 
010002 



0000000 OOOOOOG 
002734 ' 



0000000 



4$: 



CALL 


®S.TLFE1 


BCS 


9* 


MOV 


RO, R2 



020227 000032 

101017 

105702 

00 1 004 

032765 

00 1 723 

126427 

001405 

010200 

006300 

004770 

000712 



6$: 



OOOOOOG OOOOOOG 
OOOOOOC OOOOOOG 8*: 

002516' 



BIC #CM*EOF, CL*STA<R5); Acknowledge the EOF 

CALL RDFIN .; Terminate this read operation 

BR 3* .; See if there is another read to do 

Get a character from the silo buffer 

;Get a character from input silo 
; Br if no chars in silo 
i Get character to R2 

If this is a control character* do special processing 

Is this a control character? 
Br if not 

is this a null character? 
Br if not null 
!5);l5 binary input wanted? 
i Br if not — ignore nulls 
Q. FUNC-Q. BLKN<R4), #CLSFRB ;Is this a special read < . SPFUN 203) 

If yes then accept control chars as normal 
Get the control character 
Convert to word table index 
Call control character processing routine 
Go see if there are more characters 

This is not a control character 
Store into user's data buffer. 



CMP 


R2, #32 


BHI 


5* 


TSTB 


R2 


BNE 


8* 


BIT 


#CO*BIMI, CL* 


BEQ 


3* 


CMPB 


Q. FUNC-0. BL 


BECl 


5* 


MOV 


R2>R0 


ASL 


RO 


CALL 


€CCIRTN(RO) 


BR 


3* 



002436 004737 002700 ' 



5*: 



CALL 



INPCHR 



; Store character into data buffer 



126427 
001304 
026161 
001300 
004737 
000675 



OOOOOOC OOOOOOG 
OOOOOOG OOOOOOG 
002734 ' 



042765 OOOOOOG OOOOOOG 9*: 



If the input silo buffer is now empty* and this is a special function 
read (. SPFUN 203), then &ay the read is finished. 

CMPB Q. FUNC-Q. BLKN(R4), #CLSFRB iis this a special read (.SPFUN 203) 

BNE 3* ; Br if not — continue reading more 

CMP LHIRBS(Rl),LHIRBA(Rl)i Is the silo buffer empty? 

BNE 3* i Br if not — Get more chars for the SPFUN 

CALL RDFIN > Terminate the read operation 

BR 3* J See if there is another read request 

There are no more input characters that can be moved from silo buffer. 
Say this routine is no longer active for this unit. 

#CM$IRG* CL1iSTA<R5) i i i Say we are leaving this routine 

.; *# Enable interrupts ** 



012604 
012603 
012602 
012601 
000207 



BIC 


#CM$IRG, 


ENABL 




F i n i & li t? d 




MOV 


(SP)+,R4 


MOV 


(SP)4-, R3 


MOV 


<SP)+, R2 


MOV 


<SP)+, Rl 


RETURN 
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CCIRTN -- Input control character processing routines 



pBge 17 



1 

2 






3 






4 






5 






6 






7 






8 






9 






10 






11 






12 


002516 


002612' 


13 


002520 


002604 ' 


14 


002522 


002604 ' 


15 


002524 


002604' 


16 


002526 


002604 ' 


17 


002530 


002604 ' 


IS 


002532 


002604 ' 


19 


002534 


002604 •' 


20 


002536 


002604 ' 


21 


002540 


002604 ' 


22 


002542 


002624 ' 


23 


002544 


002604 ' 


24 


002546 


002604 •• 


25 


002550 


002636' 


26 


002552 


002604 ' 


27 


002554 


002604 ' 


28 


002556 


002604 ' 


29 


002560 


002604 ' 


30 


002562 


002604 ' 


31 


002564 


002604 ' 


32 


002566 


002604 ' 


33 


002570 


002604 ' 


34 


002572 


002604 ' 


35 


002574 


002604 ' 


36 


002576 


002604 ' 


37 


002600 


002604 ' 


38 


002602 


002664 ' 



. SBTTL CCIRTN ~ - Input control character processing routines 

These routines are called to process control characters received 
from a line. 

I n p u t B : 
RP -• Control character 
R5 " Unit index number 



i Vector of control character 


processing routines 


> 

CCIRTN: . WORD 


CCINUL 


;00 


null 


. WORD 


CCISTR 


;01 


SHO 


. WORD 


CCISTR 


i 02 


STX 


. WORD 


CCISTR 


;03 


ETX 


. WORD 


CCISTR 


;04 


EOT 


. WORD 


CCISTR 


i 05 


ENQ 


. WORD 


CCISTR 


i 06 


ACK 


. WORD 


CCISTR 


i 07 


BEL 


. WORD 


CCISTR 


; 10 


BACKSPACE 


. WORD 


CCISTR 


; 11 


TAB 


. WORD 


CCILF 


i 12 


LINE FEED 


. WORD 


CCISTR 


; 13 


VT 


. WORD 


CCISTR 


; 14 


FF 


. WORD 


CCICR 


> 15 


CARRIAGE RETURN 


. WORD 


CCISTR 


; 16 


SO 


. WORD 


CCISTR 


i 17 


SI 


. WORD 


CCISTR 


;20 


DLE 


. WORD 


CCISTR 


; 21 


XON 


. WORD 


CCISTR 


i22 


DC2 


. WORD 


CCISTR 


J 23 


XOFF 


. WORD 


CCISTR 


;24 


DC4 


. WORD 


CCISTR 


i25 


NAK 


. WORD 


CCISTR 


j26 


SYN 


. WORD 


CCISTR 


i 27 


ETB 


. WORD 


CCISTR 


i 30 


CAN 


. WORD 


CCISTR 


; 31 


EM 


. WORD 


CCICTZ 


i 32 


SUB (ctrl-Z) 



i it 



I 



r t 



TSCLO - 
CCIRTN 
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- Input control character processing routines 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

39 

39 



002604 
002610 



002612 
002620 



002624 
002632 
002634 



002636 
002642 
002650 
002652 
002656 
002662 



002664 



004737 
000207 



032765 
001371 
000207 



032765 
00 1 364 
000207 



016500 
126027 
001355 
004737 
004737 
000207 



002700 ' 



Routine to store the control character 

CCISTR: CALL INPCHR ; Store the character 

RETURN 



Routine to process a nul.1 character 

0000000 OOOOOOG CCINUL: BIT #CO*BNI, CL*0f>T<R5) ; Are we in binary input mode? 

BWE CCISTR iBr if yes — go store the null 

RETURN ; Discard the null 

Routine to process a line feed 



OOOOOOG OOOOOOG CCILF: 



BIT #CO$LFI, CL*0PT<R5); Should we ignore input line feeds? 
BNE CCISTR iBr if not 

RETURN ; Discard the LF 



OOOOOOG 
OOOOOOC 

002700 ' 
002734 ' 



002664 052765 OOOOOOG OOOOOOG 



Routine to process carriage returns 

CCICR; MOV CL*RQH<R5) .. RO ; Get address of current Q element 

OOOOOOG CMPB 0. FUNC-Q. BLKN<RO)> #CLSFRL ; Read-line special function? 

BNE CCISTR ; Br if not — Treat CR as normal char 

CALL INPCHR ; Store the carriage return 

CALL RDFIN ; Terminate the read operation 

RETURN 

Routine to process control~Z characters 

CCICTZ: 

Set flag which will cause us to return EOF" status on next read 

BIS #CM$EOF, CL*STA<R5)i Remember EOF has been hit 

Terminate this read operation 



002672 
002676 



004737 
000207 



002734 ' 



CALL RDFIN 
RETURN 



J Terminate the read operation 



TSCLO — Conmuni ca ti on Line (CL MAC 
INPCHR — Move character to user's 
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data buffer 



.1 

2 

3 

4 

5 

6 

7 

S 

9 
10 
11 

12 002700 010446 
13 
14 
15 
16 
17 
IS 
19 
20 

21 002710 010246 

22 002712 004737 0000000 
23 

24 
25 



. SBTTL INPCHR 



Move character to user's data buffer 



002702 016504 OOOOOOG 
002706 001410 



o 



002716 005364 OOOOOOC 
002722 001002 



2 

27 

28 

29 

30 

31 

32 002724 004737 002734' 

33 

34 

35 

36 

37 



002730 012604 
002732 000207 



INPCHR is called to store a data character into the user's buffer 
associated with the current read request. 

If this causes the read request to be completed* the current read 
queue element is returned to the system. 

1 n p u t B : 
R2 -• Character to be stirred 
R5 = CL unit index number 

INPCHR: MOV R4, -<SP.> 

Get address of current re:*ad queue element 



1*: 



MOV CL*RQH<H5), R4 J Get pointer to current read queue element 
BEG 9* i Br if no rBa<i request is pending 

Store character into data buffer 



MOV 
CALL 



R2, -<SP) 
PTBYT 



i Stack the data char for PTBYT 
; Move char to user's data buffer 



Decrement remaining byte count and see if this completes the read request 

DE:C Q. WCNT-Q. BLKN<R4); Does this complete the read request? 
BWE 9* ; Br if not 

The read request is comp .t (?ted. 

Return the queue element to the system. 



CALL 
F i n i & h e d 



RDF IN 



; Read request is completed 



9$: 



MOV <SP>+, R4 
RETURN 



I 
( 



TSCLO — 
RDF IN - 



3 
4 
5 
6 
7 
S 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 



Conmunicat i on 
- Completed a t 
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. BDTTL RDFIN ~- Completed a read request 



002734 
002736 



002740 
002744 



002746 
002752 
002754 
002756 
002762 



010346 
010446 



016504 
001427 



016403 
001404 
005046 
004737 
077304 



0000000 



OOOOOOC 



OOOOOOG 



We have completed a read request. 

Null fill the remainder of the user's buffer if that is needed and then 

call the system I/O completion routine. 



1 n p u t £ : 
R5 ~ CL unit index number 



RDFIN: MOV 
MOV 



R3, -(SP.> 
R4, -<SP) 



002764 
002772 
003000 
003006 
003012 



016465 
013764 
010437 



OOOOOOC OOOOOOG 
000004' OOOOOOC 
000004 ■' 



003020 004737 006002 



003024 
003026 
003030 



012604 
012603 
000207 



9*; 



Get address of current resii queue element 

MOV CL*RGH(R5), R4 i Get address of read queue element 
BEO 9* ; Br if none pending 

See if tiie need to store nulls into the remainder of the buffer 

MOV Q. WCNT-Q. BLKW<R4), R3 i Get remaining byte count 

BEQ 2* .i Br if buffer is full 

CLR -(SP) 

CALL PTBYT iNull fill the remainder of the buffer 

SOB R3, 1* 

Remove the queue element from our internal queue and place on the queue 
of elements waiting to be returned to the system. 

DISABL J i i **■ Disable interrupts *••«• 

MOV Q. LINK-Q. BLKM((R4), CL*R0H<R5) i ; j Remove Q element from list 

MOV CQH, Q. LIWK-«. BLKN<R4) ; ; ; Put Q element on completion list 

MOV R4, CQH 

EMABL iii *« Enable interrupts *«• 

Wow call system I/O completion routine to free the queue element 

CALL RTNQ ; Return queue element to the system 

F' i n i s h e d 

MOV ( SP ) +, R4 
MOV (SP)+, R3 
RETURN 



TSCLO - 
CLTIMR 
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- Routine called from clock interrupt routine 



1 

2 

3 

4 

5 

6 

7 

8 

9 
10 
11 
12 
13 
14 

15 003040 012705 OOOOOOC 
16 
17 
IS 
19 
20 



003032 010146 
003034 010446 
003036 010546 



003044 016501 0000000 
003050 001412 



21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 



003052 004737 006242 ' 



003056 005765 0000000 

003062 001400 

003064 004737 004566 ' 

003070 000402 

003072 004737 003122' 



003076 

003104 162705 000002 

003110 002355 



003112 012605 

003114 012604 

003116 012601 

003120 000207 



. SBTTL CLTIMR — Routine called from clock interrupt routine 

CLTIMR is called on a clock interrupt (50/60 Hz) basis to move characters 
to/from the user's I/O data buffer and the output/input CL character 
ring buffers. We do this type of processing on a clock interrupt 
basis to avoid having to do a .FORK on each input/output character 
interrupt. 



CLTIMR: MOV 
M(W 
MOV ' 



R 1 , - < SP ) 
R4. -<SP) 
R5, -(SP) 



Begin loop to service each CL unit 

MOV #2*<CLT0TL 1>, RSiGet index # of last CL unit 

See if this CL unit is ronnected to a line 



1^: 



MOV 
BEQ 



CLfLIX(R5), Rl 
2* 



; Is this CL unit connected to a line? 
; Br if not 



3*: 



See if user wants to change status of Data Terminal Ready 

CALL SETDTR ;Call routine to set or clear the DTR flag 

Call 0F?INGP for each line to try to move characters from the user's buffer 
to the output ring buffer. 

J Is this CL unit cross connected to TT line? 

; Br if not 

iCopy characters to CL output ring buffer 

; Move chars to output ring buffer 



TST 


CL*XLN(R5) 


BEQ 


3* 


CALL 


CLOCPY 


BR 


2* 


CALL 


OR I NOP 



Process the next CL unit 



>*: 



ENABL 




SUB 


#2, R5 


BGE 


1* 


Finished 




MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


MOV 


(SP)+, Rl 


RETURN 





J Make sure interrupts are enabled 

}&et index of next line 

i Loop if more lines to service 



€ 
€ 



TSCLO — 


- Communication 


OR I NOP - 


~ Move 


chars ft 


1 






2 






3 






4 






b 






A 






7 






8 






9 


003122 


010246 


10 


003124 


010346 


11 






12 






13 






14 






15 






16 


003126 




17 


003134 


032765 


18 


003142 


001402 


19 


003144 


000137 


20 






21 






22 






23 


003150 


052765 


24 


003156 




25 


003164 


005002 


26 






27 






28 






29 






30 


003166 




31 


003174 


005765 


32 


003200 


001555 


33 


003202 


005765 


34 


003206 


001004 


35 


003210 


032765 


36 


003216 


00 1 546 


37 






38 






39 






40 






41 






42 


003220 




43 






44 






45 






46 


003226 


032765 


47 


003234 


001412 


48 


003236 


032765 


49 


003244 


00 1 403 


50 


003246 


012700 


51 


003252 


000474 


52 


003254 


042765 


53 






54 






55 






56 


003262 


032765 


57 


003270 


001414 
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. SBTTL ORINGP — Move chars from data buffer to output ring buffer 

DRINGP is called to move characters from the current output data buffer 
to the output ring buffer. 

I n fi u t B : 
R5 = CL unit index number 



ORINGP: MOV 

MOV 



R2. -(SP> 
R3, -(SP) 



See if this routine is already being used by this unit. 

If so, don't reenter it <the other process will transfer all characters 

that can be transferred). 



0000000 OOOOOOG 
003562 ' 



DISABL .: ; 

BIT #CM*0RP,CL*STA<R5) 

BEQ 21* 

Ji-iP 9* 






** Disable interrupts «■* 

i i Is this routine already active for unit? 

Br if not 

Br if routine already active 



This routine is not active for this unit. Claim it. 



OOOOOOG OOOOOOG 21*: 

11*: 



BIS #CM*ORP, CL*STA<R5); ; i Say routine is now active 

EWABL ; ** Enable interrupts «•* 

CLR R2 j Count # chars moved to output ring buffer 



See if there is any free space in the output ring buffer and see if 
there is a pending write request for this unit. 



OOOOOOG 
OOOOOOG 
OOOOOOG OOOOOOG 



4*: DISABL 

TST CL*0RS<R5) 

BEG 8* 

TST CL*WQH<R5) 

BNE 20* 

BIT #CM*EFP, CL*STA(R5 

BEQ 8* ; , 



^s•^«• Disable interrupts ** 

; ; Any available space in ring buffer? 

; ; Br if no space available 

; i Is there a pending write request? 

; i Br if a write is pending 

);■>■> Are we doing end~of-file processing? 

; ; Br if not 



There is free space in the output ring buffer and there is a pending 

write request. 

We will move characters from the user's buffer to the output ring buffer. 

:'0*: ENABL .; **• Enable interrupts «■^f 

See if we are sending spaces to simulate tabs 

BIT* #CM*rBS, CL*STA<R5)i Are we doing tab simulation? 



OOOOOOG OOOOOOG 15*: 

000007 OOOOOOG 

000040 

OOOOOOG OOOOOOG 2*: 

See if we are sending line feeds to simulate a form feed 



BEQ 

BIT 

BEQ 

MOV 

BH 

BIC 



Br if not 

Have we reached the next tab stop? 

Br i f y e B 

Get space for simulation 



16* 

#7, CL*C0L(R5) 

2* 

#SPACE, RO 

12* 

#CM*TBS.. CL*STA<R5)i Say we are finished with tab simulation 



OOOOOOG OOOOOOG 16*: 



BIT #CM*FFS, CL*STA(R5)i Are we doing form feed simulation? 
BEQ 1* ; Br if not 



TSCLO - 
DRINGP ■ 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

00 

81 

82 

S3 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 
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003272 026565 OOOOOOG OOOOOOG CMP 

003300 1030G3 BHIS 

003302 012700 000012 MOV 

003306 000467 BR 

003310 042765 OOOOOOG OOOOOOG 17*: BIC 

003316 005065 OOOOOOG CLR 



CL*HN(R5) > CL.*LEN<R5> ; Have me reached top of new page yet? 

17$ ; Br if yes 

#LF) RO ; Send a line feed 

7* ;Go process the line feed 

#CM*FFS, CL*STA<R5)i Say me have finished form feed simulation 

CL.$LIN(R5) i Say we are at top of new page 



Try to get next character from user's data buffer 



003322 004737 003576' 1*: 

003326 103717 



CALL 
BCS 



GETCHR 
4* 



.! Get next char from user's data buffer 
; Br if no chars left 



003330 032765 OOOOOOG OOOOOOG 

003336 00 1 406 

003340 042765 OOOOOOG OOOOOOG 

003346 020027 000014 

003352 001725 



Ignore user's FF immediately following FF from skip 

BIT #CM*FFI, CL*STA<R5) ;Did we just do skip and should ignore FF? 

BEG 13* ; Br if not 

BIC #CM*FFI.. CL*STA<R5) iOnly ignore the let one 

CMP RO, #FF i Is the Ist char after skip an FF? 

BEQ 15* ; If yesj ignore this char 



See if this is a cont-rol character 



003354 032765 OOOOOOG OOOOOOG 13*: 

003362 001046 

003364 032765 OOOOOOG OOOOOOG 

003372 00100;> 

003374 042700 177600 

003400 020027 000037 IS*: 

003404 101430 

003406 042765 OOOOOOG OOOOOOG 



BIT #CO*BNO, CL*0PT<R5); Are we in binary output mode? 

BNE 5* .; Br if yes — Accept all chars 

BIT #CO*SBT, CL*0PT<R5)i Is 8 bit support wanted? 

BNE 18* i Br if yes 

BIC #-C<177.>, RO ;Mask character to 7 bits 

CMP RO/ #37 ;I5 this a control character? 

BLOS 7* J Br if yes 

BIC #CM*CRL:. CL*STA<R5) > Remember this is not a carriage return 



003414 032765 OOOOOOG OOOOOOG 

003422 00 1010 

003424 020027 000141 

003430 103405 

003432 120027 000172 

003436 101002 

003440 162700 000040 



003444 005265 OOOOOOG 

003450 016503 OOOOOOG 

003454 001411 

003456 026503 OOOOOOG 

003462 101406 

003464 000660 



This is not a control cheracter. 

See if we should translate lower-case to upper-case 

#CO$LC, CL*0PT<R5); May we send lower-case characters? 

Br if yes 

Is this a lower-case letter? 
Br if not 



BIT 


#CO$LC, 


BNE 


12* 


CMP 


RO, #141 


BLD 


12* 


CMPB 


RO; #172 


BHI 


12* 


SUB 


#40, RO 



i Convert lower-case to upper case 

See if we need to trunccJte line due to WIDTH parameter 

12*: INC CL*C0L(R5) ; Advance column counter 

MOV CL*WID<R5).. R3 i Was a WIDTH parameter specified? 

BEO 5* ; Br if not 

CMP CL*C0L(R5), R3 ; Have we reached the specified width? 

BLOS 5* J Br if not 

BR 15* J Discard this char if line is too wide 

> 

; ThiG is a control character. 

; Call control character processing routine. 



003466 
003470 
003472 



1 0003 
006303 
004773 



7*: 



004044 ' 



MOV RO, R3 

ASL R3 

CALL @CC0RTN<R3) 



;Get control character 

i Convert to word table index 

jCall processing routine 



TSCLO — 
ORINGP - 

115 
116 
117 
118 
119 
120 
121 

123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
14S 
149 
150 
151 
152 
153 
154 



- Conmunicat i on 

— Move chars f-r 

003476 103653 
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003500 
003504 



003506 
003512 



003514 
003520 
003522 
003526 
003532 



016503 
1.10023 



005365 
00520,? 



020365 
103402 
016503 
010365 
000615 



0000000 



0000000 



OOOOOOG 

OOOOOOG 
OOOOOOG 



003534 
003536 
003540 
003546 
003552 



005702 
00 1 406 

004737 
000604 



005506" 



BCS 15* i Br if we should discard this character 

i Move character to output ring buffer 

5*: MOV CL*0RP<R5}, R3 i Get position for char in ring buffer 
MOVB RO, (R3)+ .: Store char into rinq buffer 



Say 1 less free char space in ring buffer 



DEC CL«ORS(Ri>) 
IMC R2 



; One less free char pos in out ring buffer 
; Count # chars moved to ring buffer 



003554 042765 



OOOOOOG OOOOOOG 10*: QIC 

> F i n i i.. h e ci 



> Save updated ring buffer pointer 

CMP R3, CL*0RE<R5) ;Did we advance past end of ring buffer? 

BLO 6* i Bt if not 

MOV CL$0RB(R5), R3 i Wrap around to front of ring buffer 

6f: MOV R3, CL*0RP<R5> i Save new ring buffer pointer 

BR 4* ; Go see if we should send more chars 

Finished moving characters to output ring buffer. 

If we moved any characters* call the routine to try to start output 

to the line. 

8*: rST R2 iiiDid we move any characters to ring buffer? 

; ; Br if not 

** Enable interrupts «•* 
Try to start transmission to this line 
Go back and check for more to send 

Release this routine for this unit 

#CM$QRP, CL1iSTA<R5); i ; Say routine is now free 



TST 


R2 


BEQ 


10* 


ENABL 




CALL 


CLSTRT 


BR 


11* 



003562 
003570 
003572 
003574 



9*: 



012603 
012602 
000207 



EMABL 
MOV 
MOV 
RETURN 



i *■■«• Enable interrupts «•* 



(SP)+, R3 
(SP.^+, R2 



TSCLO - 
GETCHR 



Conmunica ti on Line (CL 
- Get next output char 



3 
4 
5 
6 
7 

a 

9 
10 

1.1 

12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 
22 
23 
24 
25 
26 
27 



30 
31 

33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



003576 010446 
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from user's data buffer 

. 5BTTL GETCHR — Qvt next output char from user's data buffer 

GETCHR is called to obtain the next character from the user's 
data buffer. 

Inputs; 
Rli ~ CL unit index nujnbf^r 

OutputB: 

C-flag cleared ==> A character was gotten 

C -f lag set ==.> No more characters are available 

RO ~ Character gotten if C-flaq is cleared 

GETCHR: MOV R4>-<&T) 

See if we should do end-of~file output processing. 



003600 
003606 



032765 
00 1 403 



OOOOOOG OOOOOOG 5$: 



BIT #CM*EFP.. CL*STA<R5) i Should we do end-of-file processing? 
BEQ 2* ; Br if not 

We are doing end-of~file output processing. 

See if there is another end-of-f i le character to send. 



003610 004737 003752' 
003614 103054 



003616 016504 OOOOOOG 
003622 001446 



CALL 
BCC 



EOFCHR 
12$ 



; See if another eof char to send 
i Br if we got an EOF character 



2*: 



003624 
003630 
003632 
003640 
003642 
003646 
003652 



003654 

003660 



003662 
003666 
003672 
003674 



005764 
001011 
032765 
001405 
005264 
1 1 2700 
000434 



005764 
001406 



005364 
004737 
1 2600 

000423 



ooooooc 

OOOOOOG OOOOOOG 

ooooooc 

000014 



ooooooc 



See if there is a pending write operation 

MOV CL*WQH(R5> A R4 ; Get pointer to current write queue element 
.BEG 10$ ; Br if no pending write operation 

If the FORMO option is in effect and this is the first write to 
block 0, send a form feed. 

TST Q. BLKN-G. BLKN<R4)J Is block number = 0? 

BME 4$ ; Br if not 

BIT #CO$FFO, CL*0PT<R5) jIs the FORMO option in effect? 

BEG 4$ ; Br if not 

IWC Q. BLKN-Q. BLKN<R4)i Inc block # so we only do this once 

MOVB #FF, RO i Get form feed character 

BR 9$ i Return the form feed 

See if current queue element has another character to be sent 

4$: TST Q. WCNT-Q. BLKN<R4)i Any remaining bytes to send? 

BHQ 3* i Br if not — write request is finished 



Get ne.xt character from user's buffer 



OOOOOOC 
OOOOOOG 



DEC 
CALL 
MOV 
BR 



Q. WCNT~Q. BLKN<R4)j Decrease remaining byte count 



GTBYT 
(SP)+, RO 
9$ 



Get next byte from user's buffer 
Get the returned character 
F?eturn the character 



This write operation i f. completed. 

Remove the queue element from our internal queue and place it 

on the queue of elements waiting to be returned to the system. 



TSCLO — 
GETCHR - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
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— Get next output char from user's data buffer 



f 



003676 
003704 
003712 
003720 
003724 



003732 



016465 OOOOOOC OOOOOOG 
013764 000004' OOOOOOC 
010437 000004' 



004737 006002 ' 



003736 000727 



003740 
003742 



000261 
000401 



003744 000241 



003746 

003750 



012604 
000207 



S'^fi: DISABL ;;;*■»«• Disable interrupts «■« 

MOV Q. LINK-Q. BLKN<R4), CL*WQH<R5) ; i i Remove element from internal Q 

MOV CQH, 0. LINK-«. BLKN(R4) i i i Add to list of completed req.ue5ts 

MOV R4, CGH 
ENABL ; *■«■ Enable interrupts «* 

J 

* Return the comp leted queue element to the system (do . DRFIN) 

CALL RTNQ ;Tell system we finished the operation 

> 
.: Go bar. li artd see if there is another write request pending 

BR 2* i Go check for another write request 

There are no available characters 



iO*: 



SEC 
BR 



12* 

; We pot a character 
9*: CLC 

f 

> Finished 

i 

12*: MOV <SP)+, R4 
RETURN 



j Signal that no chars are available 



j Signal that uie got a character 



TSCLO — 
EOFCHR - 

1 



Canimurii ca t i on 
- Get next end 



3 
4 
5 
6 
7 

a 

9 
10 
11 
12 
13 

14 003752 
15 

16 
17 

15 003752 

19 003760 

20 003762 

21 003766 

22 003772 
23 

24 
25 

26 003774 

27 004000 

23 004002 

29 004004 

30 004006 

31 004012 

33 
34 

35 004014 

36 004020 

37 004026 

38 004034 

39 004036 
40 

41 

42 

43 004040 

44 

45 

46 

47 004042 
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-of-file output character 

. SBTTL EOFCHR — feet next end-of~file output character 

ThiE routine is called during end-of-file output processing to see 
if there is another end"o(=--f i le output character to send. 

I n p u t s : 
R5 " CL unit index number 

Outputs: 
C~flaq cleared ==> <;yot a character 
C-flag set --=> No more characters 
RO = Character gotten if C-flag cleared. 

i-OFCUR: 

See if we need to send form-feeds 



I 

c 
I 



126565 
103005 
105265 

0.12700 
000422 



016500 
001405 
111000 
001403 
005265 
000412 



10 5065 
016565 
042765 
000261 
000401 



000241 



000207 



0000010 0000000 

0000010 
000014 



CMPB CL*EPN+1<R5), CL*EPN(R5)i Do we need to send more form-feeds? 

BHIS 1* ; Br if not 

INCB CL$EPN+1(R5) ; Count another form-feed being sent 

MOV #FF, RO ;Get form-feed character 

BR 7* J Go send it 

See if we need to send characters from ENDSTRING 



OOOOOOG 



OOOOOOG 



1*: 



MOV 


CL$EPP(R5),R0 


BB.Q 


2* 


MOVB 


<R0). RO 


BHO 


2* 


INC 


CL$EPP<Rl>) 


BR 


7* 



j Are we sending end-string characters? 

; Br if not 

J Get next char to send 

; Br if reached end of string 

; Advance character pointer 

.1 Go send the character 



00000 IG 

OOOOOOG OOOOOOG 
OOOOOOG OOOOOOG 



We have finished all end-of-file output processing 

2*: CLRB CLfEPN+l <R5) ; Reset form-feed count 

MOV CL*EPS(R5>; CL*EPP(R5)i Reset end-string pointer 

BIC #CM*EFPj CL.*STA<R5).; Finished end-of-file output processing 

SEC J Signal that no character was gotten 

BR 9* 



We got a character 

7*: CLC 
i F i n 3 <■;. h e d 



i Signal that we got a character 



9$: 



RETURN 



TSCLO — Conmuniccition Line (CL MACRO V05. 04 
CCORTN — Output contro.!, character processing 

.1 
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i 

€ 



3 






4 






5 






6 
7 






8 






9 






10 


004044 


004172' 


11 


004046 


004144^ 


12 


004050 


004144^ 


13 


004052 


004144' 


14 


004054 


004144' 


15 


004056 


004144' 


16 


004060 


004144-' 


17 


004062 


004144' 


IS 


004064 


004176' 


19 


004066 


004220 ' 


20 


004070 


00431P' 


21 


004072 


004144' 


22 


004074 


00444.'> ' 


23 


004076 


004522' 


24 


004100 


004144' 


25 


004102 


004144' 


26 


004104 


004144' 


27 


004106 


004144' 


28 


004110 


004144' 


29 


004112 


004144' 


30 


004114 


004144' 


31 


004116 


004144' 


32 


004120 


004144' 


33 


004122 


004144' 


34 


004124 


004144' 


35 


004126 


004144' 


36 


004130 


004 1 44 ' 


37 


004132 


004144' 


38 


004134 


004144' 


39 


004136 


004144' 


40 


004140 


004144' 


41 


004142 


004144' 



SBTTL CCORTN — Output control character processing routines 



Processing 
When one of 
If the char 
If the char 



routines for out 

these routines 
acter is to be s 
acter is to be d 



put control characters. 

is called, RO contains the control character, 
ent, the C-flag is cleared on return. 
iscarded, the C~flaa is set on return. 



i Vector of control character p 


rocessinj 


3 routines 


> 

CCORTN: . WORD 


CCONUL 


,00 


null 




. WORD 


CCOCTL 


,01 


SHD 




. WORD 


CCOCTL 


f 02 


STX 




. WORD 


CCOCTL 


,03 


ETX 




. WORD 


CCOCTL 


,04 


EOT 




. WORD 


CCOCTL 


05 


ENQ 




. WORD 


CCOCTL 


06 


ACK 




, WORD 


CCOCTL 


,07 


BEL 




. WORD 


CCOBS 


10 


BACKSPACE 


. WORD 


CCOTAB 


U 


TAB 




. WORD 


CCOLF 


12 


LINE 


FEED 


. WORD 


CCOCTL 


13 


VT 




. WORD 


CCOFF 


14 


FF 




, WORD 


CCOCR 


15 


CARRIAGE RETURN 


. WORD 


CCOCTL 


16 


SO 




. WORD 


CCOCTL 


17 


SI 




. WORD 


CCOCTL 


20 


DLE 




. WORD 


CCOCTL 


21 


DCl 


!ctrl-G> 


. WORD 


CCOCTL 


22 


DC 2 




. WORD 


CCOCTL 


23 


DC 3 


(ctrl-S) 


. WORD 


CCOCTL 


24 


DC 4 




. WORD 


CCOCTL 


25 


NAK 




. WORD 


CCOCTL 


26 


SYN 




. WORD 


CCOCTL 


27 


ETB 




. WORD 


CCOCTL 


30 


CAN 




. WORD 


CCOCTL 


31 


EM 




. WORD 


CCOCTL 


32 


SUB 


'ctrl-Z) 


. WORD 


CCOCTL 


33 


ESC 




. WORD 


CCOCTL 


34 


FS 




. WORD 


CCOCTL 


35 


OS 




. WORD 


CCOCTL 


36 


RS 




. WORD 


CCOCTL 


37 


US 





TSCLO — Conmunication Line (CL MACRO V05. 04 
CCURTN — Output control character processing 



Monday 21-Dec-a7 09: 30 
T o tj tines 



Hage c'o 



;L 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

24 
25 
Za 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



004144 
004152 
004160 
004162 
004164 



004166 
004170 



004172 
004174 



004176 
004204 
004210 
004212 
004216 



004234 
004236 
004244 
004252 
004256 
004260 
004266 
004270 
004272 
004300 
004304 
004310 



004312 
004316 
004322 
004324 
004330 
004332 
004336 
004344 
004350 
004354 
004356 



042765 
032765 
001002 
000261 
000207 



000241 
000207 



000261 
000207 



042765 
005365 
002366 
005065 
000763 



004220 042765 
032765 
001416 
062765 
042765 
005765 
001743 
026565 
103737 
000740 
052765 
005265 



012700 
000726 



005265 
016500 
00143.1. 
026500 
103405 
005065 
042765 
166500 
026500 
001014 



0000000 
OOOOOOG 



OOOOOOG 
0000000 



Process a general control character 

CCOCTL: BIC #CM*CRL, CL*STA<R5) ; Say last char out was not carriage return 

13.IT #CO*CTL. CL*0PT<R5) ; Are we to transmit control chars? 

BNE CCOSND i Br if yes 

SEC 'Say to ignore this character 

RETURN 

■> Routine to cause the current control character to be transmitted unchanged 

CCOSND: CLC ; Bay to send the character 

RETURN 



Process null character 



CCONUL: 



5EC 



; Say to ignore this character 



RETURN 
Proccess Backspace character 



OOOOOOG 
OOOOOOG 

OOOOOOG 



OOOOOOG CCOB£ 



BIX #CM$CRLj CL^STA<R5.> ; Say last char out was not carriage return 

DEC CL$C0L<R5) j Say we btb moving back 1 char 

BGE CCOSND i Br if did not go past column 

CLR CL$C0L<R5) ; Constrain to column O 

BR CCOSND ; Go send the character 

Process tab character 



OOOOOOG 
OOOOOOG 

000010 
000007 
OOOOOOG 



OOOOOOG 
OOOOOOG 

OOOOOOG 
OOOOOOG 



OOOOOOG OOOOOOG 



CCOTAB: BIC 
BIT 
BEG 
ADD 
BIC 
TST 
BEQ 
CMP 
BLO 
BR 



OOOOOOG 
OOOOOOG 
000040 



OOOOOOG 1*: 



BIS 
INC 
MOV 



#CM*CRL> CL*STA(R5) i Say last char out was not carriage return 

#CO$TAB> CL*0PT(R5) > Does device have hardware tab support 

1* .; Br if not 

#8. i CL*CDL<R5) ; Bound up to next tab stop 

#7, GLYCOL <R5) 

CL.*WID^R5) i Was a maximum width specified? 

CCOSND i Br if not — go send the tab 

CL*C0L(R5),CL':&WID<R5) ; Have we gone beyond max width? 

CCOSND ;Br if not 

CCONUL ; Discard this tab 

#CM*TBS> CL*STA(R5) i Say we are doing tab simulation 



CL*C0L<R5) 
#SPACE, RO 
CCOSND 



J Advance column counter 
J Send a space character 



Process Line feed character 



OOOOOOG 
OOOOOOG 

OOOOOOG 

OOOOOOG 
OOOOOOG 
OOOOOOG 
OOOOOOG 



CCDLF: 



OOOOOOG 



2t|3: 



OOOOOOG OOOOOOG 



INC 
MOV 
BEG 
CMP 
BLO 
CLR 
BIC 
SUB 
CMP 
BNE 
B I T 



CL*LIN<R5) 

CL$LEN<R5),R0 

5* 

CL^LINfRS), RO 

2* 

CL«LIN(R5) 



Increment line-on~page counter 

Was a page length value specified? 

Br if not 

Have we reached the top of a new page? 

Br if not 

Say we are at top of a new page 
#CM*FFS, CL*STA<R5); Stop doing form feed simulation 
CL*SKP(R5)> RO ;See if we are to skip lines at bottom of page 
CLfLIN(R5)/ RO J Have we reached the skip point? 
5* ; Br if not 

#CM*FFS, CL*BTA(R5); Are we already doing form feed simulation? 



TSCLO - 
CCORTN ■ 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
6S 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
SO 
81 
82 
S3 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 



- Conmunication Lane <CL MACRO V05. 04 

— Output contrt)], character processinci 



004364 
004366 
004372 
004400 
004404 
004406 
004414 
004416 
004424 
004426 
004434 
004436 
004442 
004444 



004446 
004454 
004462 
004464 
004470 
004472 
004476 
004500 
004506 
004512 
004514 
004520 



00^1530 
004534 
004542 
004544 
004546 



001010 
1 1 2700 
052765 
005365 
000420 
032765 
001010 
032765 
001404 
042765 
000656 
112700 
000241 
000207 



032765 

00 1 4o::ii 

005065 
000636 
005765 
00 1 406 
052765 
012700 
000677 
005065 
000624 



052765 
005065 
032765 
001211 
000261 
000207 



000014 

OOOOOOG OOOOOOG 

0000000 

0000000 OOOOOOG 5*: 

OOOOOOG OOOOOOG 

OOOOOOG OOOOOOG 

000012 6*: 

9$: 



Monday 21 
r o t ) t i n e 5 

BME 

MOVB 

BIS 

DEC 

BR 

BIT 

BME 

BIT 

BEQ 

BIG 

BR 

MOVB 

CLC 

RETURN 
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5* ; Bt if yes 

#FF, RO i At skip point — Do a form feed 

#CM$FFI.. CL*STA<R5) j Ignore FF if 1st char after skip 
CL*LIM<R5) i Set line counter back — haven't sent LF yet 
CCOFF i Go process the form feed 

#CO*LFO. CL*0PT<R5) ; Should we discard line feeds on output? 
6* ; Br if not 

#CM*CRL. CL*STA<R5)i Was last char out a carriage return? 
6* i Br if not 

#CM*CRL> CL*STA<R5)i Clear flag that says carriage return last 
CCONUL i Discard the line feed 

#LF» RO .: Get back line feed character 

; San to send it 



ProcBBs Form feed character 



OOOOOOG OOOOOOG CCOFF: 
OOOOOOG OOOOOOG 



OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
000012 

OOOOOOG 



1$: 



2*: 



BIC 

BIT 

BEQ 

CLR 

BR 

TST 

BEQ 

BIS 

MOV 

BR 

CLR 

BR 



#CM*CRL.. CL*STA(R5) ; Say last char out mas not carriage return 
#CO*FF> CL*DPT<R5) > Does this device support form feed chars? 



1* 

CL$LIN<R5> 

CCDSND 

CL*LEN(R5) 

2* 



page 



J Br if not 

.; Say we are at top of the 

; Go send the form feed 

i Do we have a non-zero page length? 

; If not then discard the FF 
#CM*FFS.- CL4;STA(R5)/ Say we are starting form-feed simulation 
#LF, RO ; Translate form feed to line feed 

CCOLF i Go send line feed 

CL*LIN<R5) ; Say we are at top of page 
CCONUL ; Discard the character 



Process carriage return character 



OOOOOOG OOOOOOG CCOCR: 

OOOOOOG 

OOOOOOG OOOOOOG 



BIS 
CLR 
BIT 
BNE 
SEC 
RETURN 



#CM*CRL> CL*STA<R5) ; Say last char out was carriage return 
CL*C0L(R5) i Say we are back to column 
#CO$CR, CL«0PT<R5)i Should we transmit carriage returns? 
CCOSND ; Br if yes 

i Ignore this char 



TSCLD • 
CLXICP 
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1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

li 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



004550 010546 



004552 016105 OOOOOOG 



004556 004737 004566 ■' 



004562 01260D 
004564 000207 



. SBTTL CLXICP 



Got char for output to cross connected CL line 



CLXICP is called at fork level when a character is received from a 
TT line that is cross connected to a CL line. 

It copies all possible characters from the input silo of the TT line 
to the output silo for the CL line and initiates output to the CL line. 

Injiuts; 
Rl ~ Index number of IT line that received the character 

CLXICP: MOV R5, -<EF') 

Get CL index of line me are cross connected to 

MOV LXCL(R1)>R5 ; Get # of CL line we are connected to 
Call routine to copy ail chars from TT input silo to CL output silo 

CALL CLOCPY 'Copy chars to CL output silo 

F i n i shed 

MOV <SP)+, R5 
RETURN 



TSCLO - 
CLOCPY 
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- Copy charac t-c'T-s from IT input buf to CL output buf 



SBTTL CLOCPY 



Copy characters from TT input buf to CL output buf 



f 

c 



3 
4 
5 
6 
7 
8 
9 
10 
11 

■L £:■. 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

46 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 



CLOCPY is called to copy characters from the input silo of a TT line to 
the output buffer of a cross -connected CL line. 



I n p u t s ; 
R5 " Unit index of CL 



line 



004566 010146 
004570 010246 
004572 010346 



CLOCPY: MOV 
MOV 
MOV 



R 1 , - ( SP ) 
R2, ~<SP) 
R3, -<SP) 



004 S74 

004&02 032765 0000000 0000000 

004610 001113 



004612 052765 0000000 OOOOOOG 

004620 

004626 005002 



004630 016501 OOOOOOG 
004634 001476 



004636 

004644 005765 0000000 

004650 001460 

004652 026161 OOOOOOG OOOOOOG 

004660 001454 

004662 



004670 004777 OOOOOOG 
004674 103446 



See if this routine is already being used by this unit. 

If so.- don't reenter it (the other process will transfer all 

characters that can be transferred). 

DISiABL JiiDi sable interrupts 

BIT #CM«ORP, CL--liSTA(R5)i ; ; Is this routine already active? 

BNE 9* .: ; ; Br if yes 

This routine is not active for this unit. Claim it. 



BIS 

EMABL 

CLR 



#CM*ORP, CL*STA(R5)i > ; Say routine is now active 

j Enable interrupts 
R2 ; Count # chars copied to output buffer 



11*: 

See if cross-connection is still in effect 



4iS: MOV CL*XLN<R5>, Rl 

BEQ 10* 



iOet number of cross-connected TT line 
; Br if no longer cross connected 



See if there is any free space in the output ring buffer. 

DISABL ;;;Disable interrupts 

TST CL*0RS(R5) > i i Any available space in ring buffer? 

BEQ 8* ;;;Br if no space available 

CMP LHIRBS(R1)>LHIRBA(R1); ; ; Any chars in TT input silo? 

BEQ 8* ; ; ; Br if not 

ENABL j Enable interrupts 

Get next character from TT input silo 



CALL 
BCS 



SSILFET 
8* 



i Get next char from TT input silo 
; Br if no more chars available 



004676 032765 0000000 OOOOOOG 

004704 001407 

004706 042765 OOOOOOG OOOOOOG 

004714 004737 005056' 

004720 103743 

004722 000415 

004724 120037 OOOOOOG 

004730 00 1 003 

004732 004737 005404 ' 



1*: 



We C(ot a character. 

See if character has special significance. 

BIT #CM*MCC.. CL*SfA<R5); Modem control or literal char? 

BEQ 1* i Br if not 

BIC #CM$MCC> CL*STA<R5); Reset literal-character flag 

CALL CLXMCC ; Process the character 

BCS 4* >Br if finished with char 

BF^ 2* 5 Oo transmit the character 

CMPB RO, VCXTRM i Control-\ — Terminate connection? 

BNE 3* i Br if not 

CALL CLXBRK ; Break cross connection and drop DTR 



TSCLO — 
CLUCPY - 

58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 

TO 

/ a. 

73 
74 
75 
76 
77 
78 
79 
00 
SI 
82 
S3 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 



■ Conmuni cation 

— Copy charactt 

004736 00042D 

004740 120037 

004744 001004 

004746 05276D 

004754 000725 
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TB from TT input buf to CL output buf 



OOOOOOG 
OOOOOOG OOOOOOG 



3'!i: 



BR 

CMPB 

BME 

B.1S 

BR 



004756 
004762 



004764 
004766 



004772 
004776 
005000 
005004 
005010 



016503 
1 l 0023 



005202 
005365 



020365 
103402 
016503 
010365 
000707 



OOOOOOG 



OOOOOOG 



OOOOOOG 

OOOOOOG 
OOOOOOG 



005012 
005014 
005016 
005024 
005030 



005702 
00 1 40v^.j 

004737 
000676 



005506 ' 



8* ; Finished 

RO, VCXCTL ;Control--A means next char is modem control 

2* ; Br if not ctrl-A 

#CM*MCC> CL^STA<R5) ; Remember next char is modem control 

4* i Go get next char 



Store this character into the output ring buffer 



MOV 
MOVB 



CL$0RP<R5)/ R3 
RO. (R3) + 



Count chars in ring buffer 

INC R2 

DEC CL*ORS(R^v) 



; Get position for char in ring buffer 
> Store char into ring buffer 



i One more char stored into ring buffer 
; One less free space in ring buffer 



005032 042765 OOOOOOG OOOOOOG 



Save updated ring buffer pointer 

CMP R3, CL*0RE<R5) jDid we advance past end of ring buffer? 

BLO 6* i Br if not 

MOV CL*aRB<R5).R3 i Wrap around to front of ring buffer 

6$: MOV R3, CL*0RP<R5) i Save new ring buffer pointer 

BR 4* ; Go see if u»e have more chars to move 

We have copied all the characters we can from the TT input silo 
buffer to the CL output ring buffer. 

If we copied any characters., call the routine to try to start 
output for the CL line. 

8$: TST R2 ii iDid we copy any characters?" 

i i Br if not 
Enable interrupts 
Start transmission to CL line 
Go back and try to copy more 

Release this routine for this unit 

10*: B.IC #CM«ORP, CL*STA<R5); Say routine is now free 



TST 


R2 


bb:q 


10* 


EhtABL 




CALL 


CLSTRT 


BR 


11* 



005040 
005046 
005050 
005052 
005054 



012603 
012602 
012601 
000207 



Finished 

?*: ENABL 
MOV 
MOV 
MOV 
RETURN 



; tenable interrupts 



(SP)+, R3 
( SP ) +, H2 
<SP)+, Rl 



( 



TSCLO ■ 
CLXMCC 
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1 

2 

4 

5 

6> 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



005056 
005060 



005062 
005066 
005070 
005074 
005076 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 

53 005236 

54 005242 

55 005244 

56 005252 

57 005256 



005102 
005106 
005110 
005116 
005122 
005126 
005132 
005136 
005144 
005152 
005160 
005164 
005172 
005200 
005204 
005212 



005214 
005220 
005222 

005230 



010046 
010146 



120027 
103405 
120027 
101002 
162700 



013761 
010137 

000452 



120027 
001006 
052765 
004737 
000441 



120027 
001006 
042765 
004737 
000430 



. SBTTL CLXMCC -- F^t-occe-s cross connect modem control character 

Procesj; a modem control character For a cross connection. 

I n p i( t s : 
RO = Character 
R5 - CL unit index numftt-r 

Outputs: 

C flag cleared ==> Go ahead and transmit this character. 

C -f laq set =-> Do ?>ot transmit this character. 



CLXMCC: MOV 
MOV 



RO, -<BP) 
R 1 > - ( 5P ) 



; Save the character 



Translate lower-case to upper-case 



000141 
000172 
000040 



120027 000102 

001042 

052765 

012700 

004737 

004737 

004737 

012761 

012761 

013761 

010561 



1*: 



OOOOOOG 0000000 

0000000 

006340 ' 

005506' 

OOOOOOG 

000036 OOOOOOG 

005354' OOOOOOG 

OOOOOOG OOOOOOG 

OOOOOOG 

OOOOOOG OOOOOOG 
OOOOOOG 



000104 



OOOOOOG OOOOOOG 



'D' 



'^■. 



000110 

OOOOOOG OOOOOOG 
006242 ' 



4*: 



CMPB 


RO, #141 


BLO 


1* 


CMPB 


RO, #172 


BMI 


1* 


SUB 


#40, RO 



; Is this a lower-case letter? 
; Br if not 

j Br if not 

; Convert to upper-case 



Start sendinq a break 



CMPB 

BNE 

BIS 

MOV 

CALL 

CALL 

CALL 

MOV 

MOV 

MOV 

M(:3V 

DISABL 

MOV 

MOV 

ENABL 

BR 



RO, #'B ; Is character B? 

2* ; Br if not 

#CM*BRK, CLJiSTA<R5); Set flag saying we are sending break 



#MS*BRK, RO 

SETBRK 

CLSTRT 

GETRTO 

#30. , CQ*L0T(R1) 



.: Set flag to start break transmission 

.iCall hardware routine to start sending break 

J Start transmitter 

; Get a real-time queue element (ptr in Rl) 

; Set approx 0.5 second time interval 
#CLXSSB, CQURTMiRDi Set address of compl routine 
@#KPAR5, CQ*PA5(Rl)i Save system par 5 mapping 
R5, CC!*R0(R1) .iSet CL unit index 

;;;■«• Disable interrupts * 
MRKTHD, CQt.LNK<Rl)i J ; Put neuj element on linked list 
Rl, MRKTHD > ; ; 

.: * Enable interrupts * 
20* 



Raise DTR 



CMPB 

BWE 

BIS 

CALL 

BR 



RO, #'n i Is character D? 

4* j Br if not 

#CO$DTR, CL*0PT<R5)i Request DTR up 

SETDTR iCall routine to raise DTR 

20$ 



■H" - Drop DTR 

CMPB RO, #'H i Is character H? 

BME 5* ; Br if not 

BIC #CO*DTR, CL*0PT<R5)i Request DTR drop 

CALL SETDTR ;Call routine to drop DTR 

BR 20* 



TSCLO ~- 


- Canmun 


i cat i on 


Line CCL 


MACRO V 


CLXMCC - 


— - Proce 


5 s c r O E & 


connect 


modem c 


58 










59 










60 










61 


005260 


120027 


000122 




62 


005264 


001017 






63 


005266 


016501 


0000000 




64 


005272 


042761 


OOOOOOQ 


OOOOOOG 


65 


005300 


042761 


OOOOOOG 


OOOOOOG 


66 


005306 


016100 


OOOOOOG 




67 


005312 


004770 


OOOOOOG 




68 


005316 


004737 


005506' 




69 


005322 


000406 






70 










71 




















73 


005324 


120027 


000130 




74 


005330 


00 100 'J 






75 


005332 


004737 


005424' 




76 


005336 


000400 






77 










78 










79 










80 










81 


005340 


000261 






82 


005342 


000401 






S3 










84 










S5 










86 










87 


005344 


000241 






88 










89 










90 










91 


005346 


012601 






92 


005350 


1 2600 






93 


005352 


000207 







5*: 



to 



Reset XON/XDFF status 

CMPB RO, #'R i Reset XON/XOFF status? 

BME 6* ; Br if not 

MOV CL*LIX(R5), Rl ; Get index of line we are connected 

BIC #*CTRLS, LSW3<R1); Reset XOFF received flag 

BIG #*HISTP. LSW10<Rl)i Say input has not been stopped by XOFF 

MOV LCDTYP(R1 )>R0 .:Get device type code 

CALL €CDSX0N<R0) iCaU routine to stuff XDN into output 

CALL CLSTRT 'Try to start output to CL unit 

BR 20* 



■ >Yi> 



Break cross connection without dropping DTR 



6*: 



CMPB 

bnf; 

CALL 
BR 



RO, #'X 
21$ 

CLXDRP 
20* 



; Break cross-connection^' 
.; Br if not 

; Break cross connection 
; Finished with character 



This is a modem control character. 
Dojj ■' t send i t. 



20*: Sf£C 
BR 



.: Signal not to send the character 



22* 



i This is not a modem control character. 
i Send the character literally. 



21*: CLC 

j Finished 

22*: MOV (SP)+, Rl 
MOV <SP>+, RO 
RETURN 



; Signal that we should send the character 



TSCLO ■ 
CLXMCC 



Conmunicution Line (CL MACRO V05. 04 Monday 21-Dec-37 OS: 30 Faqe 30 
- Proces!.- crost connect modem control character 



i 

€ 



1 

2 
3 
4 

6 
7 
S 
9 
10 
1:1 
12 
13 
14 
15 
16 
17 
IS 
19 
20 
21 



System completion routine called to stop sending break to a 

croBS-connected CL lint.-. 



I n p u t ':- ; 
RO -- CL unit index 



005354 010546 
005356 OlOOOIJ 



005360 005000 

005362 004737 006340' 

005366 042765 0000000 OOOOOOG 

005374 004737 005506' 



005400 012605 
005402 000207 



CLXSSB: hlOV 
MOV 



R5, -<SP) 
RO. R5 



i Get CL unit index 



Stop Bending break 



Cl,,R 


RO 


CALL 


SETBRK 


BIC 


#CM*BRK.. 


CALL 


CLSTRT 


F i n i 5 !i e d 




MOV 


<SP)+, R5 


RETURN 





; Clear break --send flag 
;Call hardware routine to end break 
#CM*BRK.. CL*STA(R5)i Clear break-sending flag 

; Start transmitter 



TSCLO ■ 
CLXBRK 
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— Break a CL-TT cross connection and drop DTR 



J. 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 



005404 



005404 042765 0000000 OOOOOOG 
005412 004737 006242' 



005416 004737 005424' 



23 005422 000207 



. SBTTL CLXBRK — Break a CL-TT cross connection and drop DTR 

Th i f, routine is caJleri when we receive control-\ to break the cross 

connection between a CL unit and a TT line. 

In addition to breaking the connection* DTR is dropped to hang up. 

I n p u t B : 
R 5 ■••- C L. unit index 

CLXBRK: 

FirBt, drop DTR 

BIC #CO$DTR, CL*0PT<R5) ; Request DTR drop 

CALL SETDTR iCaU routine to drop DTR 

Nou) hrpak the cross connection 

CALL CLXDRP > Break the cross connection 

Finis h e d 

RETURN 



TSCLO - 
CLXDRP - 



3 
4 
5 
6 
7 
8 
9 



Coamuni cat ,i on 
- Break a CL-T'i' 



ine (CL MACRO V'05. 04 Monday 
cross connection 
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. SBTTL CLXDRP — Jji-fak a CL-TT cross connection 



01014v'd 



10 005424 

11 

12 

13 

14 005 T26 004737 001756' 

15 

16 

17 

18 005432 

19 005440 

20 005444 

21 005452 



Th i E- routine is called when we receive control~\ to break the cross 

connection between a CL unit and a TT line. 

DTK is not dropped by this routine. Call CL.XBRK to drop DTR too. 

1 n p u t G ; 
R5 - CL unit index 

CLXDRP: MOV R1,-(SP) 

Reset this CL unit 

CALL CLREST .: Reset the CL unit 

Reconnect time-sharing line to normal input character processing routine 



016501 
012761 

012761 



0000000 

177777 0000000 

0000000 0000000 



CL.\J 

24 

25 005460 

26 005464 
27 



30 005472 

31 005476 
32 

33 
34 

35 005502 

36 005504 



005065 0000000 



1 I. 6 1 1 
004737 



01260:1 
000207 



0000000 
0000000 



DTSABL 

MOV CL*XLN(R5>, Rl 

MOV #-l,LXCL<Rl) 

MOV #TT I NOP .. L I N I R ( R 1 ) 



** Disable interrupts «•* 

Get number of cross-connected TT line 

Say not connected to a CL unit 

.: Connect to TT input processing routine 



Say CL unit no longer connected to time-sharing line 
CL$XLN<R5) 



CLR 
EMABL 



; ; i CL unit no longer connected to TT line 
; * «■ Enable interrupts «•* 



Restart the execution of the job 



MOVB 


LNMAP < R 1 ) , R 1 


CALL 


FORCEX 


F i ti i s h e d 




MOV 


(SP)+. Rl 


RETURN 





i Get virtual job index number 

i Caus:-e job to continue execution 



i 



TSCLO - 
CLSTRT 



Communication L.ine (CL MACRO V05. 04 Monday 21-Dec-87 08:30 Page 33 
■ Start transmi r-sions to a .line 



1 

''1 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



005506 010146 



005510 016501 0000000 



005514 016100 0000000 

005520 004770 0000000 

005524 005237 0000000 

005530 005237 0000000 



005534 012601 
005536 000207 



. SBTTL CLSTRT — Start transmissions to a line 

CLSTRT is called to initiate transmission to a line. 

I n p u i E : 
R f) ~- C L unit i n d e x n u m b i- r . 

CLSTRT: MOV R1.-<SP) 

Convert CL unit number into line index number 

MOV CL*LIX<R5), Rl ; Get line index # for this CL unit 

Call device dependent routine to start the transmitter 

Oet communications device type code 
Call device dependent startup routine 
Say output character processing needed 
Say CL output processing needed 



MOV 


LCDTYP ( R i ) , RO 


CALL 


©CDSTRT<RO) 


INC 


NEDCDO 


IHC 


NEDCLO 


F i n i & h e d 




MOV 


(SP)+, Rl 


RETURN 





TSCLO — Conmunication Line (CL 
CLABRT — Handler abort routine 
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3 








4 








5 








6 
7 








8 








9 


005540 


010346 




10 


005542 


010446 




11 


005544 


010546 




12 








13 








14 








15 


005546 


012705 


ooooooc 


16 


005552 


012703 


OOOOOOG 


17 


005556 


004737 


005614' 


18 


005562 


012703 


OOOOOOG 


19 


005566 


004737 


005614' 


20 


005572 


162705 


000002 


21 


005576 


002365 




22 








23 








24 








25 


005600 


004737 


006002 ' 


26 








27 








28 








29 


005604 


01260f} 




30 


005606 


1 2604 




31 


005610 


012603 




32 


005612 


000207 





SBTTL CLABRT 



Handler abort routine 



CLABRT is jumped to from the handler abort entry point. 

It terminates any I/O operations for the job being aborted. 



Inputs: 
R4 = Aborted job index number / 2 



CLABRT: MOV 
MOV 
MOV 



R3, -(SP) 
R4, -(SP) 
R5, -<SP) 



Check each CL unit to see if there are any requests for this job 

MOV #2«<CLT0TL 1>, RSiOet index to last CL unit 

1*: MOV #CL$RQH* R3 ; Get address of read queue head 

CALL CKABTCl i See if there are any entries on this queue 

MOV #CL*WQH. R3 ; Get address of write queue head 

CALL CKABTQ > See if there are any entries on this queue 

SUB #2, R5 iGet index number of next CL unit 

BGE 1* J Br if more units to check 

Call routine to return any freed queue elements to the system 

CALL RTNQ ; Return freed queue elements to the system 

Finished 



MOV 
MOV 
MOV 
RETURN 



(SP)+. R5 
(SP)+, R4 
(3P)+, R3 



TSCLO — 
CKABTQ - 

1 

2 

3 

4 

5 

h 

7 

S 
c> 

K) 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
'PA 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
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00 56 J 4 010246 
005616 010346 
005620 010546 



005622 06030!) 

005624 .162705 OOOOOOC 



005630 010503 

005632 

005640 010302 

005642 016303 OOOOOOC 

005646 001417 

005650 120463 OOOOOOC 

005654 001372 



005656 016362 OOOOOOC OOOOOOC 
005664 013763 000004' OOOOOOC 
005672 010337 000004' 



005676 

005704 00075' 



005706 

005714 012601.; 

005716 012603 

005720 012602 

005722 000207 



SBTTL CKABTQ 



Check for aborted queue eleniBTits 



CKAPTQ 15 called to check to see if any queue elements belonging to 
an aborted job are on a Bps-cified internal queue. 

If any queue elements for the aborted job are found* they are placed 
on the completion queue li&t. 

I n f .< u t B : 
R3 ~ Pointer to bar;e of queue head vector for CL units. 
R4 = # of job beinq aborted 
R5 = CL unit inde.x number of queue to check. 



CKABTQ: MOV 
NCiV 
MOV 



R2, -<SP) 
R3, ■~<BF) 
R5, -<SP) 



Get address of queue he fid 



ADD 
SUB 



R3, R5 



; Point to queue head for this unit 



#0. LINK-e. BLKN, R5i Make head look like fake queue entry 

Search for entries in tht- queue 

1«: MOV R5, R3 > Point to queue head 

DISABL ; ; ; -ft-i' Disable interrupts ** 

MOV R3, R2 .; ; ; Save address of current entry 

2$: MOV 0. LINK-Q. BLKN<R3)> R3; ; ; Get address of next entry 

BEG 9* .; > ; Br if no entries for job being aborted 

CMPB R4, Q. JOB-Q. BLKM(R3).; ; J Is this the job being aborted? 

DNE 2* ; i i Keep look ing if not 

We found an entry for the job being aborted 

Remove it from our internal queue and place on the completion queue 



MOV 
MOV 
MOV 



Q. LINK-Q. BLKW<R3), Q. LINK-Q. BLKN(R2)i i i Remove from list 
CQH, Q. LINK ■"«. BLKN<R3.>; i ; Put on completion list 

R3, CQH 



Qo back and see if there are anu more entries to remove 



hNABL 
BR 



i« 



Finished with this queup 



9$: 



ENABL 

MOV 

MOV 

MOV 

RETURN 



J «■•«• Enable interrupts *•* 
; Qq repeat the p t> o c e s s 



■is* Enable interrupts «* 



<SP)+, Wo 
<SP)+. R3 
<SP)+. R2 



TSCLO -- 


- Communication 


Line? ( CL 


MOVQ 

1 

2 
3 


— Move 


q u e u e e 3 


ement to 








4 








5 








6 








7 








8 








9 








10 








11 


005724 


010346 




12 


005726 


010446 




13 








14 








15 








16 








17 


005730 


060503 




18 


005732 


162703 


OOOOOOC 


19 








20 








21 








22 


005736 


010400 




23 


005740 






24 


005746 


010304 




25 


005750 


016303 


OOOOOOC 


26 


005754 


00 1 374 




27 


005756 


010064 


OOOOOOC 


28 


005762 


005060 


OOOOOOC 


29 








30 








31 








32 


005766 






33 


005774 


012604 




34 


005776 


012603 




35 


006000 


000207 





MACRO V05. 04 Monday 21 -Dec-37 08: 30 Page 36 
internal queue 

. SBTTL MOVQ • — Hove queue element to internal queue 

MOVQ is called to move the current queue element 
onto an internal qut'ue. 

I n p u t B : 
R3 = Address of internal queue header 
R4 = Address of current queue element 
Rt'j -' CL unit index number 



MOVQ: 



MOV 
MOV 



R3, -<SP) 
R4, -iSP) 



1$ 



Set up R3 to point to queue header but make it look like ute are 
pointing to a queue element. 

ADD R5, R3 j Point to correct queue head entry 

SUB #Q. LINK-«. BLKN, R3; Make it look like pointer to a Q element 

Add queue entry to tail of internal list 

R4, RO 

R3, R4 



MOV 

DISABL 

MOV 

MOV 

BNE 

MOV 

CLR 



F i r> i s h e d 



9*; 



EWABl.. 
MOV 
MOV 
RETURN 



i Save address of new queue element 
; ; ; *« Disable interrupts «•« 
iiiRemember current queue element address 
0. LINK-Q. BLKW(R3). R3; .; ; Get address of next queue element 
1* ; ; ; Loop till end of list found 

RO, Q. LINK -0. BLKN(R4)i .: i Add neiu entry to end of list 
Q. LINK-Q. BLKi\|<R0)i ; i Say it is the end of the list 



R* Enable interrupts ^s-fi- 



<SP)+, R4 
<SP>+, R3 



€ 
C 
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RTNQ - Return completed queue elements to the system 



1 

2 

3 

4 

5 

6 

7 

S 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 



24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 



006002 
006004 



006006 
006012 



006014 
006022 
006026 



006030 
006034 
006036 
006042 
006050 
006054 
006062 
006070 
006074 



006076 
006102 
006106 
006110 
006116 
006122 
006126 
006132 
006136 



006142 
006150 



010446 
010546 



005237 
00 1 07L; 



005737 
002023 



005737 
00 1 06 1 
005237 

004737 
112 764 
1 2764 
004737 
000441 



005037 
013704 
00 1 434 
016437 
013746 
013746 
010437 
010437 
005064 



. SBTTL RTNQ — Return completed queue elements to the system 

RTNQ is called to return completed queue elements to the system. 

Inputs: 
COH ~ Pointer to 1st queue element on list of completed queue elements. 



RTNQ: 



000002 ' 



0000000 



000006 ' 

000006 ' 

OOOOOOG 

1777770 OOOOOOG 
006002' OOOOOOG 
OOOOOOG 



000O06 ' 
000004 ' 

OOOOOOG 000004- 
OOOOOOG 
OOOOOOG 
OOOOOOG 

OOOOOOG 

ooooooc 



6*: 



MOV 
MOV 



R4, -(SP) 

R5, -<SP) 



See if this routine is currently being used by someone else. 

If so> just exit. The other user will return all pending queue elements. 



INC 
BNfc- 



RTNCNT 
3* 



ils someone else already in this routine? 
; Br if yes — They will return all entries 



No one else is currently in this routine. 
See if the handler is currently being held. 



DISABL 

TST 

BGE 



CLABF 
6* 



■»* Disable interrupts *■»■ 

; ; Is handler currently being held? 

jjBr if not being held 



Handler is being held. 

This means an I/O abort is being done for the handler. 

We cannot return queue elements to the system now. 

Queue a fork request at a low priority which will be held until the 

I/O abort operation is completed. 

TST ABTQFL ; ; i Have we already queued a fork request? 

BNE 3* i ; ; Br if yes 

INC ABTQFL ; ; j Set flag saying abort fork request queued 

E'NABL i «•* Enable interrupts *# 

CALL FRKGET > Get a free fork request block 

MOVE #<:fP*I0A-1>, FQ*PRI(R4).; Set priority below 1/0 abort 

MOV #RTNQ, FQ$RTN<R4>i Set address of routine to be called by fork 

CALL FORKQ i Queue the fork request 

BR 3* ;Exit for now — Fork will recall us 

This handler is not bting held. 

Remove completed queue element from completion list and place it as 

the current queue element for this handler. 



CLH 
MOV 
BEQ 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 



ABTQFL ■> 

CQH, R4 ; 

3* i 

Q. LINK-Q. BLKN<R4) 
CLCQE, -(SP) i 
CLLQE, -<bP) .; 
R4, CLCQE ■> 
R4.. CLLQE ■> 
Q. LINK-Q. BLKN<R4) 



; Say abort fork request no longer queued 
; Get addr of 1st queue element on compl list 
; Br if no more entries to free 
CQH J i i Remove entry from completion list 
Save current queue element pointer 
Also save last queue element pointer 
Set entry being freed as current Q element 
And as last queue element 
.1 Say this element is only one on list 



Now call the system lOFIN routine to release the queue element 



4'^: 



012704 OOOOOOG 



ENABL 
MOV 



#CLCQE, R4 



.i *« Enable interrupts «"K- 

J Point to CQE cell for lOFIN 
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RTNQ -~ Return completed queue elements to the system 



58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 



006154 004737 0000000 



CALL 






IDFIN 



i Free the current queue element 



006160 

006166 012637 0000000 

006172 012637 OOOOOOG 

006176 000741 



006200 005337 000002' 

006204 



3*: 



006212 01260r; 
006214 012604 
006216 000207 



RestoTB saved queue element pointers then go bacf; and see 
if there are more queue elements that need to be freed. 

;;>•«■«• Disable interrupts «•«• 

; i i Restore saved queue element pointers 

; i i Go back and see if more elements to free 

There are no more queue entT'ies to be freed 

; i i Say we are exiting this routine 
; *K- Enable interrupts «•*■ 



DISABL 




MOV 


<SP)+, CLLOL 


MOV 


(SP)+, CLCOE 


BR 


5$ 



DEC 


RTlMCNT 


ENABL 




F i n i B h e d 




MOV 


(SP)+, R5 


MOV 


(SP)+, R4 


RETURN 
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LINON -- Turn on a cofffmuni cat ions line 



. SBTTL LINDN 



"I urn on a c omniuni cations line 



3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 



LINON is called to turn on a communications line the first time I/O 
i& done to the line. 



006220 



006220 05276^,; OOOOOOG OOOOOOG 



006226 052765 OOOOOOG OOOOOOG 
006234 004737 006242' 



006240 000207 



Input t, : 
R b • - C L unit i n d e s n 1 1 rn bir. 

LINON: 

Set flag saying line is turned on 

BIS #CM*ON, CL*S1A<R») 

Assert Data Terminal Re^du 



BIS 
CALL 

Finished 

RETURN 



#CO*DTR, CL-*DPT<R5) 
SETDTR 



; Say line is turned on 



; Say uie want DTR on 
.; Raise the D1R line 
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I 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

IS 

19 

20 

21 

22 

23 

24 

26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 



SDTTL SETDTR 



St't Data Terminal Ready status 



SETDTR is called to confirm that the Data Terminal Ready status is 
in agreement with the desired state as specified by the CO*DTR 
flag in the unit option flag word <CL*0PT(R5) ) . 

1 n p u t B : 

RS» ~" CL unit number indfx 



006242 010146 
006244 0.1. 024 A 



006246 032765 0000000 OOOOOOG 
006254 0014ir,! 



006256 032765 OOOOOOG OOOOOOG 

006264 00 1 022 

006266 052765 OOOOOOG OOOOOOG 

006274 012700 OOOOOOG 

006300 000410 



SETDTR: MOV 
MOV 



R 1 , - < 'oP ) 
R2, -<;;P) 



See if he wants DTR on or off 



BIT 
BEQ 



#CO«DTR, CL1iOPT<R5)i Is DTR wanted on or off? 
1* ;Br if wanted off 



DTR is wanted on. See if it is currently on. 



BIT 


#CM*DTR.. CL*STA<R5) 


BME 


9* 


BIS 


#CM«DTR, CL*STA<R5) 


MOV 


#MS$DTR, RO 


BR 


2* 



ils DTR currently asserted? 
i Br if yes — all is ok 
; Say we are raising DTR 
> Say we want to set DTR 
; Go set DTR 



DTR is wanted off. Bee if it is currently off. 



006302 032765 OOOOOOG OOOOOOG 1*: 

006310 001410 

006312 042765 OOOOOOG OOOOOOG 

006320 005000 



B I T #C'M*DTR, CL*ST A < R5 ) 

BEG 9* 

BIG #CM*DTR, CL-iiSTA<R5) 

CLR RO 



; Is DTR currently off? 
iBr if yes — all is ok 
i Say we are dropping DTR 
; Say we went to drop DTR 



Call hiirdware-dependent routine to change DTR status 



006322 016501 OOOOOOG 
006326 004737 OOOOOOG 



006332 01260.? 
006334 012601 
006336 000207 



?*: 



9$: 



MOV 


CL*LIX<R5>. Rl 


CALL 


SETDSS 


f- i n i B h e d 




MOV 


(SP)+, R2 


MOV 


( SP ) +, R 1 


RETURN 





; Get line # for this CL unit 
; Change DTR status 
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. SBTTL SETBRK 



Control break transmisBion 



3 








4 








5 








6 








7 








8 








9 








10 


006340 


010146 




11 


006342 


010246 




12 








13 








14 








15 


006344 


016501 


ooooooe 


16 


006350 


016102 


0000000 


17 


006354 






18 








19 








20 








21 


006362 


012602 




22 


006364 


01260,1 




23 


006366 


000207 




24 








25 








26 








27 








28 


006370 


000172 


OOOOOOG 


29 




000001 




Errors g 


e t e c t !? d 








SE'IBRK is called to start or end transmission of a break character 
to B CL line. 



1 n p u t B ; 
RO = CM*BRK to start sending break; to stop break. 
R5 -" CL unit index number. 



SETBRK: MOV 
MOV 



R 1 , - ( SP ) 
R2, ~<SP) 



Call hardware-dependent rout-ine to control break transmission 

i Get line # for this CL unit 
.; Get line control type code 
jCall hardware control routine 



MOV 


CL*LIX(R5),R1 


MOV 


LCDTYP(R1 ), R2 


OCALL 


BRKJMP 


Finished 




MOV 


(SP)+, R2 


MOV 


(SP)+, Rl 


RETURN 





Dummy routine used as a jump off point to the CDSBRK routine. 

This is done so that we can use an OCALL to save our overlay number. 



BRKJMP: JMP 
. EiMD 



©CDSBRK <R2) 



;Call hardware routine to control break 



*** Assembler stat ist:i <; s 



Work file reads 
Work file writes 
Size of work file 
Size of core pool 
Operating system 







216 Words ( 1 Pages) 

17920 Words ( 70" Pay es) 

RT -1 1 



Elapsed time; 00:00:33. 15 

DK: TSCLO. LP: TSCLO=DK: TSCLO. MAC/C/N: SYM 



i 



i 



TSCLO - 


- Conmun 


E cat ion Line 


<CL MACRO 


V05. 04 


Monday 21- 


-Dec -87 08: 


30 Pag^ S-; 














Cross reference 


table <(;REF 


V05. 04 ) 






















*CTRLS 


1-35 


a- IB 


9-28 


1 4-38 


29-64 


















*H.TSTP 


1-39 


8~r'P 


9-22 


14-59 


14 61 


29-65 
















*XCHAR 


1-33 


S~^'J^'9 
























ABTQFL 


4-7# 


37-30 


37-32* 


37-44* 




















BRKJMP 


40-17 


40-PB# 
























C. CSW 


1-41 


6-38K- 


1 1 -26* 


1 2-28* 


16-57* 


















CIDEVX 


1-32 


5-43 
























CCICR 


17-25 


1S~21# 
























CCICTZ 


17-38 


1 S-30# 
























CCILF 


17-22 


18~15# 
























CCINUL 


17-12 


18-V# 
























CCIRTN 


16-80 


17-.t2# 
























CCISTR 


17-13 


17-14 


17-15 


17-16 


17-17 


17-18 


17-19 


1 7-20 


17- 


-21 


17-23 


17-24 


17-26 




17-27 


1 7-23 


17-29 


17-30 


17-31 


17-32 


.t 7-33 


17-34 


17- 


-35 


17-36 


17-37 


18-4# 




18-10 


18-16 


18-23 






















CCOBS 


25-18 


26-22# 
























CCOCR 


25-23 


26~90^5f 
























CCOCTL 


25~11 


25-12 


25-13 


25-14 


25-15 


25-16 


25-17 


25-21 


25- 


-24 


25-25 


25-26 


25-27 




25-28 


25-29 


25-30 


25-31 


25-32 


25-33 


25-34 


25-35 


25- 


-36 


25-37 


25-38 


25-39 




25-40 


25-41 


26-4# 






















CCOFF 


25-22 


26-62 


26~75t! 






















CCOLF 


25-20 


26-47# 


26-84 






















CCONUL 


25-10 


26-17# 


26-39 


26-68 


26-86 


















CCORTN 


22-114 


25~10# 
























CCOSND 


26-6 


26-12# 


26-24 


26-26 


26-36 


26-38 


26-43 


26-79 


26- 


-93 








CCOTAB 


25-19 


26-30# 
























CDGDSS 


1-55 


l-f.i6 
























CDSBRK 


1-57 


40-28 
























CDSDSS 


1-55 


























CDSTRT 


1-38 


33-17 
























CDSXON 


1-35 


8-24 


14-63 


29-67 




















CKABTQ 


8-222 


8-227 


34-17 


34-19 


35-13# 


















CL$COL 


1-47 


14-55* 


22-48 


22-102* 


22-105 


26-23* 


26-25* 


26-33* 


26- 


-34* 


26-37 


26-41* 


26-91* 


CLfEPN 


1-37 


a-278« 


8-363 


13-23* 


24-18 


24-18 


24-20* 


24-35* 












CL*EPP 


1-37 


13-27* 


24-26 


24-30* 


24-36* 


















CL*EPS 


1-37 


8-282 


8-371 


13-27 


24-36 


















CL*LEN 


1-51 


8- 162* 


8-338 


22-58 


26-48 


26-80 
















CL*LIN 


1-51 


14-54* 


22-58 


22-63* 


26-47* 


26-50 


26-52* 


26-55 


26- 


-61* 


26-78* 


26-85* 




CL.*LIX 


1-58 


5-47 


8-254 


14-18 


16-34 


21-19 


29-63 


33-12 


39- 


-35 


40-15 






CL$OPT 


1-45 


8-1 14«- 


8-130* 


8-135* 


8-144* 


8-153* 


8-328 


16-74 


18- 


-9 


18-15 


22-80 


22-82 




22-92 


23-37 


26-5 


26-31 


26-63 


26-76 


26-92 


29-47* 


29- 


-55* 


31-14* 


38-17* 


39-15 


CLfORA 


1-45 


8-252 


14-33 






















CL*ORB 


1-49 


1 4-00 


22-131 


28-78 




















CL*ORE 


1-49 


22-129 


28-76 






















CL*ORG 


1-31 


14-32* 
























CL*ORP 


1-48 


14-31* 


22-119 


22-132* 


28-66 


28-79* 
















CL*ORS 


1-48 


1-49 


8-253 


14-33* 


22-31 


22-124* 


28-35 


28-72* 












CL*RQH 


1-47 


5-65 


8-221 


16-40 


18-21 


19-16 


20-15 


20-30* 


34- 


-16 








CLfSKP 


1-52 


8-170* 


S-343 


26-54 




















CL*STA 


1-45 


5-83* 


8-32* 


8-50* 


8-60* 


8-71* 


8-106* 


8-256 


8- 


-333 


13-13 


13-18* 


13-19* 




14~42# 


1 4-46 


14-50* 


16-15 


16-22* 


1 6-42 


16-54 


16-58* 


16- 


-101* 


18-34* 


22-17 


22-23* 




22-35 


22-46 


22-52* 


22-56 


22-62* 


22-72 


22-74* 


22-87* 


22- 


-147* 


23-10 


24-37* 


26-4* 




26-22# 


26-30* 


26-40* 


26-53* 


26-57 


26-60* 


26-65 


26-67* 


26- 


-75* 


26-82* 


26-90* 


28-18 




28-23-» 


28-49 


28-51* 


28-61* 


28-95* 


29-28* 


30-15* 


38-13* 


39- 


-20 


39-22* 


39-20 


39-30* 


CL$WID 


1-51 


8-178* 


8-348 


22-103 


26-35 


26-37 
















CLfWGH 


1 -47 


5-S4 


8-226 


22-33 


23-29 


23-60* 


34-18 















c 



TSCLO — Communication Line (CL MACRO V05. 04 Monday 21~Dec-87 08:30 Page S-2 

Cross reference table <CREF V05. 04) 

CL*XLN 1-32 15~2i 21-29 28-29 32-19 32-2D-JS- 

CLABF 1-47 37-2.1 

CLABRT 1-25 34-9# 

CLCLOS 8-5 13-9# 

CLCQE 1-48 5-20 5-22tJ 37-48 37-50* 37-57 37-65* 

CLEOFS 1-37 8-283 8-370 

CLERR 5-49 6-15 6-19 6-23 6-25 6-3741 

CLGSTS S-90 8-322 9-1 2# 

CLINCP 1-25 15-K)*f 

CLIOQ 1-25 5-13# 

CLLQE 1-48 5-24* 37-49 37-51* 37-64* 

CLOCPY 21-31 27-19 28-9# 

CLPTWD 8-91 8-193 8-244 8-263 8-323 8-329 8-334 8-339 8-344 8-349 8-359 8-364 

11-15# 

CLQOK 5-19# 5-77 5-95 10-16 

CLQXIT 5-59 6-39 7-10 7-11 8-6 8-36 8-65 8-96 8-119 8-137 8-146 8-155 

8-163 8-171 8-179 8-198 8-207 8-236 8-245 8-264 8-294 8-301 8-383 10-8# 

CLREAD 5-58 5-64# 7-34 8-72 

CLREST 1-26 8-110 8-300 14-i4# 32-14 

CLSFAB 1-39 

CLSFBC 1-53 

CLSFCH 1-53 

CLSFCO 1-54 

CLSFDL 1-53 

CL.SFHS 1-53 

CLSFIC 1-45 

CLSFMS 1-49 

CLSFOC 1-45 

CLSFRB 1-53 16-76 16-91 

CLSFRL 1-50 18-22 

CLSFSL 1-54 

CLSFSO 1-54 

CLSFSP 1-57 

CLSFSS 1-54 

CLSFSW 1-54 

CLSFWB 1-38 

CLSPFN 5-55 6-1 0# 

CLSTRT 8-28 8-53 8-61 22-142 28-90 29-31 29-68 30-16 33~S# 

CLTIMR 1-25 21 -9# 

CLTOTL 1-32 21-15 34-15 

CLVERS 1-38 9-16 

CLWRIT 5-57 5-n2# 

CLWRTB 5-83# 7-37 

CLXBRK 1-25 28-57 31-10# 

CLXDRP 29-75 31-19 32-10# 

CLXICP 1-25 27-1 1# 

CLXMCC 28-52 29-1 3# 

CLXSSB 29-34 30~e# 

CM*BRK 1-57 8-50 8-60 14-46 14-50 29-28 30 -i 5 

CM*CRL 1-56 14-42 22-87 26-4 26~22 26-30 26-65 26-67 26-75 26-90 

CM*DTR 1-50 39-20 39-22 39-28 39-30 

CM*EFP 1-37 8-256 13-18 14-42 22 35 23-18 24-37 

CM*EOF 1-44 S-32 8-71 14-42 16-42 16-54 16-58 18-34 

CM*FFI 1-34 22-72 22-74 26-60 

CM*FFS 1-51 14-42 22-56 22-62 26-53 26-57 P6-B2 

CM^IRG 1-44 16-15 16-22 16-101 
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CM$MCC 


1-34 


28-47 


28-51 


28 61 




















CM*ON 


1-44 


S-;I06 


38-13 






















CM*ORP 


1-48 


22-17 


22-23 


22-147 


28-18 


28-23 


28-95 














CM*TBS 


1-44 


14-42 


22-46 


22-52 


26-40 


















CM$WRT 


1-35 


5-83 


13-13 


13-19 


14-42 


















CO*SBT 


1-43 


22-82 
























CO*BNI 


1-43 


16-74 


18-9 






















CO*BNO 


1-43 


22-00 
























CO*CR 


1-52 


26-92 
























COfCTL 


1-52 


26-5 
























CO*DTR 


1-50 


8-114 


8-130 


8-135 


29-47 


29-55 


31-14 


38-17 


39 


-15 








CO*FF 


1-42 


26-76 
























CO$FF0 


1-42 


23-37 
























CO*LC 


1-51 


22-92 
























CO*LFI 


1-42 


18-1^5 
























CO*LFO 


1-42 


26-63 
























CO*TAB 


1-42 


26-31 
























CQ*LNK 


1-31 


29-38K- 
























CQ*LOT 


1-30 


29-33«- 
























CQ*PA5 


1-30 


29-3'a^ 
























CQfRO 


1-31 


29~36<f 
























CQ*RTN 


1-30 


29-34* 
























CQH 


4-6# 


10-9 


10-101* 


20-31 


20-32* 


23-61 


23-62« 


35-36 


35 


-37» 


37-45 


37-47* 




CR 


3-5# 


























CS*EOF 


1-50 


16- '37 
























CS*ERR 


1-41 


6-38 


11-26 


12-28 




















CTRLQ 


3-9# 


























CTRLS 


3-8# 


























CTRLZ 


3-1 0# 


























EOFCHR 


23-24 


24-14# 
























FF 


3-7# 


22-75 


23-40 


24-21 


26-59 


















FORCEX 


1-36 


32-31 
























FORKQ 


1-46 


37-37 
























FP*IOA 


1-46 


37-35 
























FQ*PRI 


1-46 


37-35tJ 
























FQ*RTN 


1-46 


37-36 fr 
























FRKGET 


1-46 


37-34 
























SETCHR 


22-67 


23-14# 
























SETDSS 


1-59 


8-189 


9-34 






















GETRTQ 


1-30 


29-32 
























GETWRD 


8-143 


8-152 


8-161 


8-169 


8-177 


8-204 


8-274 


12-17# 












GTBYT 


1-49 


8-2B4 


23-51 






















INPCHR 


16-86 


1 8-4 


18-24 


i9-12# 




















INTPRI 


1-33 


5-25 


10-11 


14-34 


16-17 


16-23 


16-50 


16-102 


20- 


-33 


21-37 


22-24 


22-42 




22-141 


22-151 


23-63 


28-24 


28-39 


28-89 


28-99 


29-40 


32- 


-26 


35-41 


35-46 


36-32 




37-33 


37-56 


37--71 






















lOFIN 


1-34 


37-5(:< 
























IRINGG 


5-71 


1 5-29 


16-9# 






















KPAR5 


1-30 


29-35 
























KPAR6 


1-52 


12-36K. 
























LCDTYP 


1-38 


1-55 


8-23 


14-62 


29-66 


33-16 


40-16 














LCLUNT 


1-58 


15-15 
























LF 


3-6# 


22-60 


26-69 


26-83 




















LHIRBA 


1-40 


8-242 


14-26 


16-44 


16- -93 


28-37 
















LHIRBB 


1-40 


14-23 
























LHIRBG 


1-40 


14-25«- 
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Cross r 
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table <CREF 


V05. 04) 
























LHIRBP 


1-40 


1 A-PA r^- 


























LHIRBS 


1-39 


8-243 


14-26* 


16-44 


16-93 


28-37 


















LINIR 


1-36 


32-21 iJ 


























LINON 


5-64 


5-86 


3S-9# 
























LNMAP 


1-36 


32-30 


























LSWIO 


1-43 


8-22* 


9-22 


14-59 


14-61* 


29-65* 


















LSW3 


1-32 


1-35 


8-18* 


8-259 


9-28 


14-38* 


29-64* 
















LXCL 


1-32 


27-15 


32-20* 
























MAX'SFO 


6-16 


6-27 


7-1 2# 
























MAXSFl 


6-20 


6-26 


7-22# 
























MAXSF2 


6-24 


7-4 i# 


























MDVQ 


5-66 


5-85 


36-1 1« 
























MRKTHD 


1-31 


29-38 


29-39* 
























MSfBRK 


1-57 


8~'3i 


29-29 
























MS*CAR 


1-56 


9-35 


























MS*DTR 


1-55 


39-23 


























MS*RNG 


1-56 


9-41 


























NEDCDO 


1-39 


33-18* 


























NEDCLO 


1-39 


33-19* 


























OR I NOP 


5-91 


13-31 


21-33 


22-9# 






















OVRHC 


1-55 


40- 1 7 


























PSW 


1-33 


5-19* 


5-25* 


10-8* 


10-11* 


14-22* 


14-34* 


16-14* 


16- 


-17* 


16-23* 


16- 


-39* 


16-50* 




16-102* 


20-29* 


20-33* 


21-37* 


22-16* 


22-24* 


22-30* 


22-42* 


22- 


-141* 


22-151* 


23- 


-59* 


23-63* 




28-17* 


28-24* 


28-34* 


28-39* 


28-89* 


28-99* 


29-37* 


29-40* 


32- 


-IS* 


32-26* 


35- 


-25* 


35-41* 




35-46* 


36-23* 


36-32 ti- 


37-20* 


37-33* 


37-56* 


37-63* 


37-71* 














PTBYT 


1-38 


S-374 


8-377 


19-22 


20-23 




















PTWRD 


1 --33 


11-34 


























Q. BLKN 


1-34 


5-22 


5-41 


5-43 


5-54 


5-56* 


5-82* 


6-37 


B- 


-45 


8-125 


8- 


-217 


10-9* 




11-19 


11-2''! 


12-21 


12-26 


12-36 


12-40 


12-41* 


16-56 


16- 


-76 


16-91 


18- 


-22 


19-26* 




20-20 


20-30 


20-31* 


23-35 


23-35 


23-39* 


23-39* 


23-45 


23- 


-50* 


23-60 


23- 


-61* 


35-20 




35-27 


35-29 


35-35 


35-35* 


35-36* 


36-18 


36-25 


36-27* 


36- 


-28* 


37-47 


37- 


-52* 




Q. BUFF 


1-52 


11-19 


12--21 


12-40 


12-41* 




















Q. CSW 


1-41 


6-37 


11-24 


12-26 


16-56 




















Q. DEVX 


1-30 


5-43 


























Q. FUNG 


1-41 


5-54 


16-76 


16-91 


18-22 




















Q. JOB 


1-32 


8-217 


35-29 
























Q. LINK 


1-34 
36-18 


5-22 
36-2!:> 


10-9* 
36-27* 


20-30 
36-28* 


20-31* 
37-47 


23-60 

37-52* 


23-61* 


35-20 


35- 


-27 


35-35 


35- 


-35* 


35-36* 


Q. PAR 


1-52 


12-36 


























0. UNIT 


1-41 


5-4.) 


























0. WCNT 


1-34 


5-56* 


5-82* 


8-45 


8-125 


19-26* 


20-20 


23-45 


23- 


-50* 










RDF IN 


16-59 


16-95 


18-25 


18-38 


19-32 


20~10# 


















RTNCNT 


4-5# 


37-14* 


37-70* 
























RTNQ 


8-231 


10-12 


20-37 


23-67 


34-25 


37-S# 


37-36 
















SETBRK 


8-52 


8-59 


14-49 


29-30 


30-14 


40~J0# 


















SETDSS 


1-59 


39-36 


























SETDTR 


1-26 


8-U5 


8-136 


8-145 


8-154 


21-24 


29-48 


29-56 


31- 


-15 


38- le 


39- 


■10# 




SETSPD 


1-35 


8-206 


























SFABT 


7-33 


8-21 6# 


























SFBREK 


7-17 


S-45# 


























SFCLER 


7-16 


S-14# 


























SFCLOS 


7-8 


s-;>-ii 


























SFCOPT 


7-27 


8-1 52# 


























SFDTR 


7-21 


S-125# 


























SFGMS 


7-31 


8-185# 


























SFGOPT 


7-40 


8-3 1B# 



























f 
c 
c 
I 
f 
I 
I 
I 
i 
i 
I 
I 

4 
4 
€ 

1 
1 
I 
4 
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SFGRPO 


7-S# 


7- .1 2 


SFGRPl 


7-16# 


7-2;? 


SFGRP2 


7-26# 


7-4 j 


SFIC 


7-35 


S-242# 


SFOC 


7-36 


e-251# 


SFREAD 


7-18 


8-7 1# 


SFREST 


7-39 


S~300# 


SFSEFP 


7-38 


S-270# 


SFSLEN 


7-20 


S-161# 


SFSOPT 


7-26 


8~143# 


SFSPD 


7-32 


8-204 # 


SFSSKP 


7-29 


8-1 69# 


SFSTAT 


7-19 


a-BBU 


SFSWID 


7-30 


8-177# 


SFTERM 


7-9 


7-20 S-102« 


SILFET 


1-45 


16-64 28™43 


SPACE 


3-ll# 


22-50 26-42 


SPFRTN 


6-33 


7-4# 


TRNSTR 


1-33 


1 5-23 


TTINCP 


1-36 


32-2) 


VCXCTL 


1-31 


28-59 


VCXTRM 


1-31 


28- r? 5 


XLtfCD 


1-59 


9-37 


XL*CTS 


1-59 


9-37 


XL$RI 


1-59 


9-43 


XL.*XFR 


1-59 


9-30 


XL*XFX 


1-59 


9-24 
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DISABL 


2-7# 


5-19 


10-S 




29-37 


32- .18 


35-25 


ENABL 


2-13# 


5-25 


10-11 




22-141 


22-151 


23-63 




37-33 


37-56 


37-71 


DCALL 


2-i9# 


40-17 





14-22 16-14 16-39 20-29 22-16 22-30 23-59 28-17 28-34 

36-23 37-20 37-63 

14-34 16-17 16-23 16-50 16-102 20-33 21-37 22-24 22-42 

28-24 28-39 28-89 28-99 29-40 32-26 35-41 35-46 36-32 



